Top 10k strings from ZX-Review 1995.03 (1995)(Inforkom)(ru).fdi in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [FDI] (TOSEC-v2006-06-06) /
Back to the directory listing
291
117
94 C
73 -
47
30 0
30
30
29
28
26
26
25
23 .
23
22 0
21 .
21
20
19
19
18 .
18 .
16 .
16 .
16
15 .
15 .
15
14 .
14 .
13 0
13 .
13 ,
13
12 UUUUUUUUUUUUUUUUUUU
12 0
12
12
11 0
11 .
11 .
10 ;******************
10 0
10 .
10 .
10 .
10 .
10 .
10 ;
9 ;*******************
9 0
9 0
9
9
8 0
8 .
8 .
8 -----
7 0
7 ...........
7 .
6 0
6 0
6 0
6 0
6 0
6 .
6 T R - D O S
6 * * *
5 p$p$p$p$pHpHpHpHplplplp
5 :
5 0
5 0
5 .
5 .
5 ATM-TURBO-2
5 *********************************
4 perewod9~isel9iz9
4 ? (1...6)
4 :
4 :
4 :
4 2Scorpion ZS 256
4 208,208,208,208
4 11,11,11,11
4 0
4 ."; USING "00";D2;"
4 , 1995.
4 ,
4 ,
4 ).
4 - 0
4
4
3 UUUUUUUUUUU
3 FFFFFFFFFFFFFFFFFFFF
3 ?
3 ;**********************
3 ;
3 :
3 :
3 :
3 :
3 :
3 :
3 0
3 0
3 0
3 0
3 0
3 .
3 .
3 .
3 -94, N6,
3 - *********************************
3 -
3 ):
3 ).
3 ).
3 ".
3 ".
3 ").
3 "" ""
3 +5 temp
3 +1 perm
3 USING "00";D2;"
3 ; USING "00";D2;"
3 *********************************
3 -
3
2 ~astx9fajla9
2 zapisatx9sektor
2 zapisatx9dorovku
2 vp$p$p$p$pHpHpHpHplplplp
2 s~itatx9dorovku
2 stro~n=9bukwy
2 sistemnoj9dorovke
2 sektorow>>
2 podtwerdite9
2 perezapisatx
2 p@p@p@p@p@p@p@p
2 nowye_dorovka
2 najti9fajl
2 hhhhhhhhhhho`
2 g$="Step":
2 g$="Cursor":
2 _zamena9diska
2 _wwod9komand
2 _wozwrat9w9
2 _stranica9wpered
2 _stranica9nazad
2 _perekl`~enie9zagl=
2 _perekl`~enie9revimow9
2 _informaciq
2 ^islo9NE9bolx{e
2 Zapustitx9fajl
2 Zapisatx9izmeneniq
2 Zapisatx9dorovku
2 Zapisatx99sektor
2 Wyjti9iz9procedury
2 Wy9uwereny9
2 Wstawxte99prinima`}ij9dis
2 Wstawxte99kopiruemyj99dis
2 Vp$p$p$p$pHpHpHpHplplplp
2 S~itatx99dorovku
2 Swobodno>>>>>
2 Stertyh>>>>>>>>
2 Steretx9mark
2 S=_Peterburg
2 Perwaq9swobodnaq9dorovka>>
2 Pereme}enie9kursora_klawi{ami9kursora
2 Pereimenowat
2 POCMOTP KAPTOTEK
2 Ob?em9fajla9iz
2 O9[9I9B9K9
2 Nowaq9mask
2 Nesankcionirowannaq99kopi
2 Ne9TOT9disk99
2 Na~alo_dor=
2 Na9diske9NET9takogo9fajla
2 Mnogo9sektoro
2 Mnogo9fajlo
2 Mark=9fajlow
2 Kopirowatx9s9
2 Kontrolx9diskow9
2 Konec9_dor=
2 Fajlow>>>>>>>>>
2 Fajlow>>>>>
2 Fajl99su}estwuet
2 Dlina9999fajla>>
2 Disk-Doctor
2 CONVER Comander
2 Adres9zagruzki>>
2 @=Kowalewskij
2 ?
2 ?
2 ?
2 ?
2 ?
2 ;--------------------
2 ;************************
2 ;***********************
2 ;*****************
2 ;"sprAjtoB"
2 ;"formAtE rEdAktorA"
2 :
2 :
2 :
2 :
2 :
2 :
2 :
2 :
2 :
2 9zapisatx99katalog
2 9stertyh>>>
2 9prerwatx9operaci
2 9ignorirowatx9fajl
2 9Konec9programmy9
2 9@=Kowalewskij
2 999swobodnoj9zone
2 6p$p$p$p$pHpHpHpHplplplp
2 2WORLD CHAMPION
2 2TRACK KEEPER
2 2Scorpion ZS
2 2MULTI-PLAYER SOCCER MANAGER
2 2MAGIC-SEARCHER
2 2BURRY McCUIGAN
2 256128 48:
2 22,12,8,148,149
2 22,11,8,146,147
2 22,10,8,17,2,16,7
2 0.
2 0 1.
2 0
2 0
2 0
2 0
2 0
2 0
2 .2.
2 .1.
2 ."; USING "00";D2;"'
2 .
2 .
2 .
2 .
2 .
2 .
2 .
2 -94, N4,
2 -3.
2 - HALT
2 - * * *
2 - OUT (C),A
2 -
2 -
2 ,22528+256
2 ,16384+2048
2 ,," 3A
2 ,
2 ++++++++++
2 *REFLECTION
2 ).
2 ).
2 ).
2 ).
2 )
2 'True Vid.'
2 'Inv. Vid.'
2 'Graphics'
2 'Caps Losk'
2 #"a\"c\"e\!
2 "S\"K\"U\#"Y\
2 ".
2 ".
2 ".
2 ".
2 """"""""""""""""""""
2 "
2 "
2 "
2 "
2 "
2 ZX-Spectrum
2 TR-DOS,
2 'ZX-SPECTRUM'
2 #FFFD (65533).
2 "ATM-TURBO-2"
2 TRACK KEEPER
2 TR-DOS
2 HEX'e),
2 HEN RETURN : CONTINUE
2 (FLD2 -
2 Executes : #9C40 (40000)
2 Executes : #9C40 (40000)
2 Original idea........50%
2 Coding...............50%
2 EX AF,AF'
2 DEC D
2 ... ...
2 LD BC,#FFFD
2 ;
2
2
2
2
2
1 }e smotrite (i slu{ae
1 ||xxttppllhhdd``
1 |ksta klassaq
1 |<<D8xDDDDD<
1 zywa` dalx}e: w |tom izwra{
1 zy=zy+y(s):
1 zx=zx+x(s):
1 za malym - k
1 zApisAtx sprAjty"
1 zApisAtx fAjl B"
1 zAgruzitx fAjl B"
1 zAdAniE oknA. pri udEr-"
1 yy=yx-zy*w(n):
1 yxvVe#&@%A
1 yx=y-zy*y(v0):
1 yx=y-zy*(y(v0)+y(u8)):
1 yx=(a2*n+s*a3)*n+a1:
1 yx=(a1*n-s*a3)*n+a2
1 yr=(yy-y)*
1 y=yx-y(u9)
1 y=k+y-y(u9):
1 y+b<(yp-py+b)*d
1 y*Gj"bj:Zj2dj:[j2ej
1 xy=x+zx*x(v0):
1 xy=x+zx*(x(v0)+x(u8)):
1 xx=xy+zx*v(n):
1 xx=xx+k*i:
1 xx=xx+(n=u8):
1 xr=(xx-x)*
1 xco txmy ', qwlq`}u`
1 x=xy+x(u9):
1 x=j+x+x(u9):
1 x= y= D
1 x+(xp-px+b)*c>w3
1 x(t)+a7-b:
1 x$=g$+",y":
1 x$=g$+",x":
1 x$=g$+",r":
1 x$=g$+",l":
1 x$="no. of pixels":
1 x$="no. of chars":
1 x$="new attr":
1 x$="change":
1 x$="Vert. Radius":
1 x$="Turn Angle":
1 x$="Start Angle":
1 x$="Space":
1 x$="Rotation":
1 x$="Radius":
1 x$="Pic No.":
1 x$="Pic Mode (p,a,c or d)":
1 x$="No. to save":
1 x$="Mark":
1 x$="Horiz. Radius":
1 x$="Arc Angle":
1 ww=yx*a1-xy*a3:
1 ww=-i*r-j:
1 ww-a1/u8+j:
1 written in TASM, ofcoz).
1 wgfVUDDDCDDTUffvw
1 w1+" saved":
1 w1+" is the wrong type":
1 w$(z)=" ":
1 w$(a)=" ":
1 w |tojpr@r
1 vv=xy*a2-yx*a3:
1 v9,u6;k$(en):
1 v8,v1;bx;",";
1 v4,u5;k$(ed);
1 v4,n0;q$(b+
1 v3,w0;q$(u9+k);
1 v3,v8;"r,l =";r;",";l;
1 v3,s;"I P B F ";
1 v3,n0;k$(s-
1 v2,v0;"COLOUR";
1 v2,u6;x;",";y;
1 v1,v3;"0. Main Menu":
1 v1+s*i,v3;i;". Load ";l$(i):
1 v0,v5;"SAVE";
1 v0,v5;"LOAD":
1 v0,m4;j$(p*p1+b);
1 v(n),w(n):
1 ustAnoBkA zAdErvki"
1 ustAnoBkA proiz-"
1 ustAnoBkA poslEdo-"
1 ustAnoBkA fonA"
1 udAlitx sprAjt"
1 u&u2u"u4ypi|
1 tut nedawno poqwilasx odna
1 tLOOKBOOTB
1 t,v3;"1. ";a$;
1 t,u6;ss;",";tt;
1 stErEtx sprAjt"
1 slEduqwij sprAjt"
1 skroll kuda-
1 screen window
1 s,m4;j$(p*p1+b);
1 rolling sprAjtA"
1 rolling oknA"
1 rEvim rEdAKtorA"
1 rAbotA s sprAjtom"
1 rAbotA s oknAmi"
1 rAbotA s fAjlAmi"
1 r=r-x(v2)*
1 r r r6r&x:r8r r`rfr
1 qswodk.txC
1 qsa`}aq. o
1 q zakolebal
1 q wse e{e demiurg ASH i wy0
1 proisXodit"
1 programmistP#
1 problema w tom,!
1 priwetstwu
1 primEhAnia:":
1 prEdyduwij sprAjt"
1 pppppppppp
1 pozwonitx psihiat
1 pokAzAtx sprAjt s mAskoj"
1 pokAz sprAjtA"
1 pod uglom ply
1 pe^atlenie ^to ot
1 pNpNp`p`prprpJ
1 p0p0q(p@q8
1 p,a,c or d
1 p*p3p<pH@Q
1 p*p0p<pHpN
1 p(p(pPp(pPpPpxpPpxpxp
1 p$p,p8p@@L
1 p p(p8p@pHpPp`phpppxp
1 p (0xp5p=pMpUp] e
1 ottuda ws` skanirowannu` IBM'
1 otrAvEniE OknA"
1 otrAvEniE Bokrug gori-"
1 otmEnA izmEnEnij"
1 osnoBnoE mEnq":
1 okonhAniE"
1 o2]j2^j2aj2`j<2
1 o,m3;y;" "
1 o,a;j$(p*p1+b);" ";x;" ";
1 o rEdAktorE"
1 nyE punkty poslE zAdAnia oknA"
1 nameless*Gj
1 nameless
1 na SPACE#%
1 n=s*a1+s*a3+m:
1 n0,v8;"step=";aa;",";bb;
1 n0,v3;"2. ";:
1 n+b,v5;x(n);
1 n+b,v5;x(n):
1 n+b,v5;d$;
1 n+b,u5;y(n):
1 n+b,m3;e$;
1 my tAkvE movEm sdElAtx dla BAs "
1 mulxtiplikAcia"
1 mjgda^[XUROMJGDA?<9742/-+(&$"
1 migAniE (Bkl/Bykl)"
1 majka kalinina, to
1 m4+"0123":
1 m3,v6;n;",";
1 m3,v6;"colour":
1 m3,v3;"3. ";b$
1 m3,n0;q$(v0+
1 m10.tx C
1 m+" characters":
1 m 'LORD OF THE RINGS' BY TOLKIEN. knig
1 lu~}e ih. VA
1 lenxkaq, ~umuru
1 left rightup down whole
1 l=x(t)+a7-b:
1 l=x(t)+a7-b
1 l=o(s*z+r+u8+
1 l,r,u or d
1 kopiroBAniE sprAjtA"
1 kopiroBAniE OknA"
1 klABiwi uprABlEnia"
1 kAtAlog diskA"
1 k=d*d/c/c-b:
1 k+xx+yy+xy+c+yx+h+oc+d+i+j+m+l=n:
1 izmEnEniE rEvimA"
1 ispolxzowanP1
1 iniciAlizAcia"
1 iniciAlizAcia movEt proizBoditx-"
1 informaciq dl
1 inBErsia sprAjtA"
1 inBErsia oknA"
1 imq kotoroj
1 i$=g$+" ":
1 i$="Please try and save it again":
1 i$="Please try again":
1 i$="Please rewind the tape to verify":
1 i$="Maximum "+
1 i$="Invert
1 i$="Do you wish to overwrite (
1 h09.tx C
1 h$=h$+","+u$(n+b):
1 h$=h$+" ("+
1 h$=c$+" has not been verified":
1 h$="window/screen
1 h$="print string":
1 h$="filename":
1 h$="Store is being used for "+l$(m):
1 h$="Enter "+h$:
1 h$="Currently":
1 h$="Completed":
1 graphics software
1 grafiku i muzy
1 goworim o muzyke0B
1 g$=g$+l$(n):
1 g$="block size":
1 g$="Swap Colour":
1 g$="Set Print":
1 g$="Set Colour":
1 g$="Set "+g$:
1 g$="Scroll"
1 g$="Scroll Attr":
1 g$="Save "
1 g$="Reverse":
1 g$="Print block":
1 g$="Pic No.":
1 g$="Pic Mode":
1 g$="Merge":
1 g$="Mark/Space":
1 g$="Magcopy":
1 g$="Load ":
1 g$="Last Plot":
1 g$="Ellipse":
1 g$="Delete ":
1 g$="Cover":
1 g$="Coords. "+
1 g$="Circle":
1 g$="Change Colour":
1 g$="Brush":
1 fReimport ZX AS
1 eras=eras-1
1 eras=eras-(a$(i,1
1 eras=eras+(a$(i,1
1 ee, A SAM teper
1 ece on kru
1 demiurg ASH
1 d=yp-py+b:
1 d.16 kw.73%q
1 cBEt hErnil"
1 cBEt fonA"
1 c>(w3-x)/t
1 c=xp-px+b:
1 boot BU(U()
1 blagodar`Q
1 b08-3.tx C
1 b,n0;"mode:";j$(p+b);
1 b,a;d$;d$;d$:
1 b*&]"-a!/a"&]>
1 b$=b$+"n)"
1 arkostx (Bkl/Bykl)"
1 a=a+s*(k-1
1 a3=vv*ww*k:
1 a2=ww*ww*k+b:
1 a1=vv*vv*k+b:
1 a,v6;j$(p+b);
1 a,a;" ";d$;d$;
1 a$=s$(s)+t$(n):
1 a$=g$+" too thin":
1 a$=a$+" too big":
1 a$=a$+" stored":
1 a$=a$+" copied":
1 a$=a$+" "+
1 a$="top right"
1 a$="no room"
1 a$="lower left":
1 a$="copy "+s$(s):
1 a$="01234":
1 a$="0123"+
1 a$(x)=a$(y):
1 a$(x)=a$(y)
1 a teperx q budu goworitx bez
1 ``ddhhllppttxx||
1 \08-2.tx C
1 Yp$p$p$p$pHpHpHpHplplplp
1 Y. NOT BAD,YEAH! )
1 X OR CS+X=DIR SHOW
1 WOULD ONLY
1 WINDOW MENU":
1 WINDIoW....
1 WDO YOU REALLY
1 WANT TO QUIT?
1 W AND R WORKS WITH CURRENT
1 VIEW.........
1 V 3.02R 512K
1 V 3.02R 128K
1 TRACK KEEPER,
1 TOP (wpro~em esli ubra
1 TO VELSOFT AND JMS!_H
1 TI-CHRIST,!
1 THE S P R I T E M E N T
1 THE FUCKINGSA
1 THANKS TA/
1 TEN BY ME,
1 TAPE ERROR
1 T","K-KOCM L-
1 Size Y :000
1 Size X :000
1 Set values
1 Set device
1 Scale Inc.
1 Sam 10.96 $
1 SURE DELETE?
1 STUDIO COMPILER
1 SS+W <> -
1 SS+Q <= -
1 SS+I -
1 SS+Enter -
1 SS+E >= -
1 SPRITEMENT 4.3 BY VAG 04.07.93 FILE: T: S: A: (V)IEW(X)CAT(B)ACK(N)EW(SSF)EDIT(W)RITE(R)EAD(S)AVE(L)OAD(12)<->
1 SPRITE.....
1 SPRITE MENU":
1 SPRITE EDITOR v2.1
1 SPRITE EDITOR V2.1
1 SOUND TRACKER COMPILATION OF POW
1 SNIPER RIFLE
1 SM'a. WARNING!!
1 SET VALUES
1 SET DEVICE..
1 SET DELAY....
1 SAVE FILE:
1 SAVE FILE...
1 SAVE DATA...
1 SA software productions :
1 S.T.PRO 1996 COMPILATION OF SANDMAN BY DEMIURG
1 S PART YOU MAY SEE SC
1 S 'MANOWAR',
1 S & MUSIC W
1 Rotation =
1 Rot. Inc. =
1 Reset 1 to 8
1 Reset 0 to 9
1 ROCKET LAUNCHER
1 ROCKET
1 RIFLE CLIP
1 RESTORES THE DISK
1 RE-READ TEXT
1 QWERTPOIUYASDFG
1 QUIT.......
1 QAOPSPC/KEMPSTON
1 QAOP,SP ili kEMPSTON
1 Press no. of option
1 Picture ElementsUDGs Screen g
1 Picture no.=
1 P\=]Z(boot BU(U()
1 PROGRAMMED DRAW PARAMETERS
1 PRINTADD COMM DIFF
1 PRINT DECIMAL
1 PRESS ANY KEY":
1 PRESS A KEY
1 POBKA -4":
1 PISTOL CLIP
1 PIDERGROUP),
1 PARTS OF SPRITEMENT:
1 PAMM B KAPTOTEKE ";n:
1 [email protected]
1 OhistkA OknA":
1 Official distributer
1 OVERWRITE ?
1 OTHOCTb n/216d. n=";q:
1 OOM-METAL GROUP. YOU MU
1 OHOK(OT 3
1 OFF ON TO FROM UNSETSET
1 OF SCREEN (UPPER 16 LINES).
1 O HOMEPA?";N1
1 O CTPOK B CTPAH
1 Normal order
1 NORMAL ORDER.
1 NO GRAPHICS
1 NENTER TO RETURN
1 N08-1.tx C
1 Master Assembler v1.0 for 128k Speccy only!
1 MY PROGS (1-3),
1 MUSIC-MACKER!
1 MULTI-PLAYER SOCCER MANAGER,
1 MPEX ALBUM (6).MUSIC WHICH
1 MOVE SPEEDS :
1 MNB!@#$%_)('&
1 MAY SEE EXCEPTIONAL EFFECT.
1 MAX IWAMOs!
1 MARSEC PISTOL
1 MARSEC GUN CLIP
1 MARSEC AUTO GUN
1 MAGIC-SEARCHER,
1 M4000 GUN CLIP
1 M4000 AUTO GUN
1 M$="3563568568:68:;8:;8:68563525"
1 LOAD FILE...
1 LISTEN IT.
1 LINE:0000 COL:00 F:L TEXT:0000/FFFF BUF:0000/4000 FILE:........
1 LEONARDO error trap.
1 L50 LAS-PACK
1 L-50 LASER GUN
1 L AND S WORK WITH FILES.
1 Initialize
1 IS IMPOSSIBLE
1 IS IMPOSSIBLE
1 INSERT DISK
1 INITIALIZE.
1 INITIALIZE mENU":
1 INITIALIZE
1 IN HIS PART
1 ICOLOR PICS & BORDER AY-INDICATOR.
1 I LOVE MY DU
1 HTEP -6" :
1 HEAVY LASER
1 HEAVY LAS-PACK
1 HEAR WROTE
1 HCIAQK!=9N;"(
1 HAVE BEEN PROTECT
1 GREETING FROM HELL ! THAT'S AGAIN DEMIURGE ASH WITH MULT
1 GOLDEN DISK
1 GGGGGGGGGGFF
1 GGGGFFFFFF
1 GENTLEMENq
1 Figure table
1 FUCK YOUDOIN' HERE, SHITMAN?
1 FRIEND: DYA
1 FILE.......
1 FILE MENU":
1 FILE ABSENT
1 FIGURE TABLE
1 FFFFFFFFFF
1 F07.tx C
1 Esli zAintErEsoBAlisx,to zBonitE"
1 Edit sprite:000 Quantity:000
1 Edit order
1 EXECUTE......
1 ENTER continue : SPACE abort
1 ENTER FILE NAME :
1 EDIT ORDER...
1 E -2"
1 Draw table
1 Deznya by Dyad
1 DISKEDMAX IWAMOTO
1 DISK HEAD POSITION.
1 DISK ABSENT
1 DISK ERROR
1 DESTOY, POSSIBLY?
1 DEMIURGE ASH
1 DELIRIUM: R!B
1 DELAY(1-15):
1 DEFW - DW; DEFS - DS.
1 DEATH-METAL
1 DDD<D|D@pDD
1 DAGGER
1 D=92@up3@3
1 D<D<DDDDD<<
1 D8H8<8H8DDD
1 D-distchor
1 Created by
1 Coords. to
1 CURSOR PLOT UNPLOT INVERT PICTUREMAGCOPYFIGURE COLOUR PRINT COLCOPYMAGCOPY
1 CS+L & CS+S SAVES/LOADS TWO PART
1 CS+9 GRAPH -
1 CS+8 ===> -
1 CS+7 || -
1 CS+6 \/ -
1 CS+5 <=== -
1 CS+4 I.VIDEO -
1 CS+3 T.VIDEO -
1 CS+2 C.LOCK -
1 CS+1 EIDT -
1 CS+0 DELETE -
1 CREDITS :
1 CREATED BY FDI"
1 CKA -8":
1 CKA -9"
1 CK HOMEP ";h$:
1 CK -7":
1 CATALOGUE...
1 Bybor nAkopitEla"
1 BstABitx sprAjt"
1 Brush mode=
1 Background
1 BURRY McCUIGAN WORLD CHAMPION 09.txt 90
1 BDDDD@DDHDD
1 BACKGROUND...
1 B8x<D8x8D<<
1 B mEnq rAbotAET kAk
1 AUTHOR MR.VAG THANKS FOR USING
1 ATb?(0-HET)"
1 AP50 GRENADE
1 ANIMATION..
1 ANIMATION MENU":
1 AND PRESS A KEY
1 AND LEFT<->RIGHT MOVING.
1 ABOUT......
1 A B-ABTO","C-C
1 ?)
1 ?!) DELIRIUM MULTIDEM@p
1 ? / Yes,No /";:
1 ? (1...6)
1 ? (1...6)
1 ? 16
1 ? MASTER
1 ? SNAKE).
1 ? "T"?
1 ?
1 ?
1 ?
1 ?
1 ?
1 ?
1 ?
1 ?
1 ?
1 ?
1 =06.tx C
1 =";',D1;"
1 <x8888D8DDDDDDD>~<
1 <T<xTDDDD><<<
1 <T8xTrDDDDDDDDDDD<
1 <NONE>
1 <B|T|DDDD8
1 <<DDD<<xx(8|
1 <<D8xDDDDDDDDDD<<
1 ;j$(bd+s,b):
1 ;Y1 5540 FILL INK 2;128,88
1 ;================
1 ;===============
1 ;---------------
1 ;********************
1 ;* bit 0- Save 1=Yes
1 ;* BIG FONT (Ballbr.2) *
1 ;* #3D13 EMMULATION
1 ;"~PROGRAMS BANK~ v9.4";
1 ;"zontAlxnoj ili BErti-"
1 ;"tElxnosti prokrutki"
1 ;"kursorom nA linzE i B mEnq"
1 ;"kAlxnoj osi"
1 ;"izmEnEniE rAzmEroB oknA"
1 ;"INSERT PAPER
1 ;"File ~bank~ not found":
1 ;"CURSOR";
1 ;"CORRECTED BY";
1 ;"C 19-00 do 21-00"
1 ;"BOlxnoj poslEdoBA-"
1 ;"BCTABbTE
1 ;"BAtElxnoj prokrutki"
1 ;"(mAskA/sprAjt)"
1 ;"(Bykl/poln/wAXm)"
1 ; 00060 LD I,A
1 ;
1 ;
1 ;
1 ;
1 ;
1 ;
1 ;
1 :djT_:ej=G
1 :SPRITE EDITOR v2.1
1 :HZH[H\H?^%]V
1 :";D1;" 3540 LET Z=24.07*X/(24.07+X-Y)
1 :" 3300 IF K>24 THEN LET K=K-24
1 :" ELEM1: PROC ELEM2
1 :"
1 :"
1 : SPRITESGEN * * *
1 : POKE b,c.
1 : Kempston, Sinc-
1 : Kempston, Sincla-
1 : HP (Hard Point) v 1.0
1 : Gard, Marakith, Xajo- Tower of Doom,
1 : COLOR LINES
1 : 1992
1 : 15-16-1-2-3-4...12-13-14
1 : 13-14-15-16-1-2...11-12
1 : 121019,
1 : 12
1 : 1.03.95.
1 : 1-2-3-4-5...13-14-15-16
1 : ... POKE 50002,U ...
1 : ... POKE 50001,U ...
1 : #BFFD (49149) R6
1 : "FOR LOSW"
1 : ";FAZ: *RD+0.5
1 : THROW WY-
1 : THE VINDICATOR! "
1 : S.S.RAT
1 : R1=1; R4=3; R5=1; XOR A
1 : NUM_P,
1 : LD A,#02
1 : IN #1F = 0,
1 : Dendy, SEGA, SEGA-Megadrive-2, SEGA-CD, Nintendo, Su-
1 : DROP HEX, TAKE HEX,
1 : DEEP BOWL, IDENTIFY
1 : CTRL+
1 : ADVENTURELAND, INSIDE
1 : 397-29-17
1 : "FLAT 50, MESSIR",
1 : RAMSAVE/RAMLOAD (
1 : LD HL,16384
1 : LD A,2
1 : Gorgrath, Korkith,
1 : DEFB - DB;
1 : "I craced. I
1 : LD A,#5B
1 : Doom.
1 : "
1 : 00040 LD DE,#8001
1 : (C)
1 : SRL (HL).
1 : 15 IF y$="a" THEN LET n=n-1
1 : 00270 RRCA
1 : 00080 CP 0
1 : SE.
1 : "
1 : * * *
1 : HBOX, SCRAP OF PAPER (
1 : Length : #004A (00074)
1 : Start of object: #9C59 (40025)
1 : STORE SYSTEM"'"TRACK AND PRESS A
1 : CS+SPACE -
1 : LD HL,#4000
1 :
1 :
1 :
1 :
1 :
1 :
1 :
1 :
1 :
1 :
1 :
1 :
1 9{~2gz#~2u
1 9is a professional
1 98,64,50,0
1 9.
1 9,5,4,2,2,1,0,0
1 9, 3.
1 9 9 9 8 7 5 2
1 9 9 8 8 6 4 2
1 88DT8x8xDDDDD<
1 81,81,144,0
1 8 8 8 8 6 4 2
1 7!?l"%!`=9
1 7 7 7 7 5 3 2
1 7 7 7 6 4 3 1
1 67,64,127,0
1 64,128,0,0
1 6 6 6 6 4 2 1
1 6 6 6 5 3 2 1
1 6 6 6 4 2 2 -
1 6 5 5 3 2 2 -
1 58,10,178,0
1 5544322100/..-,,
1 5 CHANGING ALGORITHM OF MOVEMENT
1 5 4 4 3 2 1 -
1 46000;2300
1 4-5) AND A COV
1 4- DosVer 1=5.03 *
1 4 4 3 3 2 - -
1 4 4 3 2 1 - -
1 33,33,17,17,8
1 32,21,0,#FF
1 32,159,160,161,#FF
1 3.znAhEnia pEriodA ABtopoBtorA i"
1 3.VIEWER V
1 3.SS+LEFT/RIGHT
1 3. Load graphics
1 3 3 3 2 - - -
1 3 3 3 1 - - -
1 3 3 2 - - - -
1 3 3 1 - - - -
1 3 2 - - - - -
1 3
1 2TEMPLE OF TER-
1 2Summoning
1 2STIFFLIP & Co 1.
1 2SPIDERMAN
1 2SPECTROFON
1 2RIGELS REVENGE:
1 2Protection
1 2Necromantic
1 2Magic: The Gathering.
1 2MESSAGE FROM ANDROMEDA.
1 2LORDS OF MID-
1 2LASER SQUAD.
1 2Kempston-mouse
1 2Kempston-Mouse
1 2Kempston-Mou-
1 2Kempston-
1 2Honey Commander
1 2Hit Points
1 2HUNCHBACK
1 2HAMPSTEAD
1 2FWORD FOR
1 2Elemental
1 2EMERALD ISLE.
1 2Divination
1 2BORED OF THE RINGS
1 2AFTERSHOCK
1 2ADVENTURELAND
1 2ADVENTURE-
1 255,255,192,223
1 255,0,255,255
1 254,2,194,250
1 252,2,130,132
1 251,3,255,255
1 223,192,255,255
1 22,7,13,16,1,17,7
1 22,20,1,16,6,17,0
1 213,85,88,0
1 210.3.9 GUARDIAN
1 210.3.8 ELEMENTAL
1 210.3.7 DIVINATION
1 210.3.6.CREATION
1 210.3.5.COMBAT
1 210.3.4.CHARM
1 210.3.3 ASTRAL
1 210.3.2 ANIMAL
1 210.3.16 WEATHER
1 210.3.15 SUN
1 210.3.14 SUMMONING
1 210.3.13 PROTECTION
1 210.3.12 PLANT
1 210.3.11 NECROMANTIC
1 210.3.10 HEALING
1 210.3.1 ALL
1 204,168,166,0
1 201,81,145,0
1 2.FIRE+UP/DOWN
1 2.EDITOR SS+FIRE
1 2.10.95.
1 2. Save graphics
1 2- ErCod 1=ReOnly*
1 2(C) ALANSOFT, 1995.
1 2(812) 524-16-53
1 2(812) 172-69-94
1 2(812) 130-19-95
1 2"ZX-FORUM-III"
1 2" T R I C K S "
1 2 1 - - - - -
1 2 - - - - - -
1 1ZX-Spectrum
1 1Spectrum & TR-DOS
1 1SEARCHER.
1 1ROCK STAR
1 1MULTI-PLAYER SOCCER MANAGER,
1 1LD (0),BC
1 1AY-3-8910/12.
1 1996 KOVROV CITY
1 1993 MOSCOW":
1 194,2,254,0
1 170,170,146,0
1 17,33,163,0
1 162,163,164,#FF
1 1600/1610
1 154,155,156,157
1 150,151,152,153
1 15.
1 15.
1 148,21,1,16,1,17,0
1 147,21,1,16,1,17,0
1 144,160,32,64
1 144,144,80,0
1 1350-380,
1 132,136,136,16
1 127,64,67,95
1 1234509876qwertpoiuyasdfg
1 100710 LD E,0
1 100700 LD A,A
1 100680 LD (0),BC
1 100670 LD (0),BC
1 100620 RL A
1 100610 RL A
1 100560 LD A,0
1 100550 LD D,(HL)
1 100540 LD DE,0
1 100490 LD (0),BC
1 100480 LD A,A
1 100470 LD A,A
1 100303 NOP
1 100302 NOP
1 100301 RLA
1 100290 LD A,A
1 100280 LD A,A
1 100270 LD (DE),A
1 100260 LD DE,0
1 100220 LD A,0
1 10). 1.
1 1.kopiroBAniE sprAjtA B mAsku"
1 1.UP/DOWN
1 1.PICTURE OUT
1 1. Create graphics
1 1- First char
1 1(WIRELESS).
1 1(Adventure Games)
1 1 AND 2 MOVE SPRITE <>
1 1 2 3 4 5 6* 7**
1 1 - - - - - -
1 1
1 1
1 0?
1 0: RINGMASTER
1 0:
1 032
1 023624,0: CLS 00160 JR NZ,LP2
1 022
1 021
1 020
1 007
1 0.
1 0.
1 0.
1 0.
1 0.
1 0,2,165,81
1 0,192,164,170
1 0,144,80,89
1 0,128,27,42
1 0,128,213,153
1 0,11,9,145
1 0,1,149,89
1 0,0,18,171
1 0, 300012,
1 0 PCX\zx-3-95.pcx #
1 0 PCX\well.pcx , +32^ #
1 0 PCX\training.pcx , +16^ #
1 0 PCX\tavern.pcx , +10^ #
1 0 PCX\statuya.pcx , +8^ #
1 0 PCX\sound2.pcx
1 0 PCX\sound1.pcx
1 0 PCX\school.pcx -8^, +14^
1 0 PCX\moonecl.pcx
1 0 PCX\hardwar8.pcx , +8^
1 0 PCX\hardwar7.pcx , +8^
1 0 PCX\hardwar6.pcx ,
1 0 PCX\hardwar5.pcx , +8^
1 0 PCX\hardwar4.pcx , +8^
1 0 PCX\hardwar3.pcx , +5^
1 0 PCX\hardwar2.pcx , +8^
1 0 PCX\hardwar1.pcx , +8^
1 0 PCX\hardwar0.pcx
1 0 PCX\guard.pcx #
1 0 PCX\fountain.pcx , +36^ #
1 0 PCX\forum.pcx +5^, +2^
1 0 PCX\etude.pcx +4^, +10^
1 0 PCX\crossr.pcx , +18^
1 0 PCX\atm2.pcx
1 0 PCX\atm1.pcx
1 0 PCX\altar.pcx #
1 0 United Group),
1 0 SHIELD),
1 0 CORD TO PINNACLE, KILL WYVERN.
1 0 BOTTLE).
1 0 9C88: 9C 1F 1F 1F 1F C9 00 00 :05
1 0 9C80: 00 C9 3C 32 8E 9C 3A 8F :46
1 0 9C78: 8E 9C 3A 8F 9C 17 17 00 :D1
1 0 9C70: 8E 9C FE 00 28 0C AF 32 :49
1 0 9C68: B3 20 E2 C9 32 8F 9C 3A :19
1 0 9C60: 1B 23 0B 78 B1 20 EE 7A :F6
1 0 40 -
1 0 (INTRICATELLY DECORATED POTION
1 0 (CRUCIFIX),
1 0 RCM: PROC TIMEM: PROC PRFAZ: PRO
1 0 EP .3,11: PROC FAZ: PROC MEMFAZ:
1 0 C SUNDAWN: BEEP .5,7: PRINT #0;
1 0 C OPTION
1 0 1220 LET GR=PI/180
1 0 1210 LET RD=10
1 0 1200 DEF PROC CONST: REM
1 0 1160 PROC SUN: PROC TIMESUN: PRO
1 0 1150 PROC SUN: PROC TIMESUN: BE
1 0 1140 PROC ECLIP: PROC OPTION
1 0 1130 DATA "
1 0 1120 DATA "
1 0 PROC COORDM: PROC MCONV: PROC P
1 0 Executes : #9C40 (40000)
1 0 Doomdark
1 0 3.
1 0 2.
1 0 00490 RET
1 0 00480 JR NZ,L3
1 0 00470 DEC A
1 0 00460 L3 INC D
1 0 00450 RET Z
1 0 00440 AND 7
1 0 00430 LD A,B
1 0 00280 RST 16
1 0 00270 END LD A,32
1 0 00190 HALT
1 0 00180 HALT
1 0 00120 INC HL
1 0 00110 INC DE
1 0 00100 LD (DE),A
1 0 00010 ORG 30000
1 0 -
1 0 (C)
1 0 00290 RET
1 0 00025 LDIR
1 0 00024 LD BC,767
1 0 00023 LD (HL),7
1 0 00022 LD DE,22529
1 0 00021 LD HL,22528
1 0 -
1 0 9C90: FE CB 47 20 F8 21 00 40 :B5
1 0 9C60: 12 7F 7F 05 28 1D 04 70 :CA
1 0 INK 3;K$: PAUSE 0: PROC OPTION
1 0 30. Transmute Metal to Wood (7)
1 0 (
1 0 9C88: 00 00 56 18 C1 3E BF DB :2B
1 0 3. Animate Dead (3)
1 0 20. Conjure Fire Elemental (6)
1 0 9C70: 7F DB FE CB 47 FB C8 18 :51
1 0 9C58: AF 13 B9 28 16 11 00 00 :BE
1 0 9C50: CB 77 28 04 AF 3D 18 02 :60
1 0 3. Call Lightning (3)
1 0 00830 LD A,E
1 0 LD HL,#4000
1 0 LD DE,(#5CEB)
1 0 LD C,#08
1 0 LD B,#1B
1 0 9. Protection from Fire (3)
1 0 (
1 0 6. Animal Summoning II (5)
1 0 1230 LET LATIT=56
1 0 00820 CP C
1 0 CALL #3D13
1 0 00850 KEY LD A,#BF
1 0 00840 JR NZ,ZAGR
1 0 LD C,#05
1 0 00200 HALT
1 0 00130 DEC BC
1 0 10
1 0 3.
1 0 57
1 0 91
1 0 49
1 0 38
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 /05.tx C
1 .GMT" 1980 DEF PROC PRFAZ
1 .=192 5600 LET PR=KC*I: LET KCPRI=88+Y
1 .7.
1 .60
1 .6.
1 .6).
1 .6).
1 .5.
1 .47-49).
1 .4.
1 .4).
1 .3.
1 .3.
1 .3);
1 .27.
1 .26).
1 .26).
1 .2.
1 .2.
1 .1.
1 .1.
1 .1).
1 .........700
1 ..................64
1 ..................10
1 ...................9000
1 .....................1023
1 ....................................
1 ...............
1 ............
1 ...".
1 ..." 4140 LET A1M=MALF1-D2: LET A2M=M
1 ..." 2430 DEF PROC SUN: REM
1 ..."
1 ...
1 .);
1 .).
1 .).
1 .).
1 .).
1 .)
1 .)
1 ."; USING "00";D2;"
1 ."; USING "00";D2
1 ."; USI 3550 END PROC
1 ."; WR*GR)
1 ."; 3260 LET E=(ACS (-TAN (LATIT*GR)
1 ." AT 13,5; INK 6;"
1 ." 3310 END PROC
1 ." 3240 END PROC
1 ." 1: PAUSE 0: PROC OPTION
1 ." 4800 DEF PROC ELEM1: REM
1 ." 3250 DEF PROC GSTGMT: REM
1 ." 4970 IF ECW>0.05 AND ECW<=2 THEN
1 ." 4830 LET FD=SIN (WR*GR)*COS (IMO
1 ." *TAN (X*GR)))/GR/15
1 ." 5450 PRINT #0;AT 1,1; INK 4;"
1 ." 3560 DEF PROC STMOON: REM
1 ."
1 ."
1 ."
1 ."
1 ."
1 ."
1 ."
1 ."
1 . poslE zAprAwiBA-"
1 . ostAlx-"
1 . Y
1 . X
1 . D1 - 555
1 . CLIMB UP -
1 . 524-16-53, 248-47-69.
1 . 43-31-09
1 . 2).
1 . 18: KIDSON SOFT GROUP
1 . 14-00-73.
1 . PIC1650.
1 . DOWN -
1 . "'' INK 6;
1 . FLAG_O, NUM_E, QUAL.
1 . BO-2,
1 . *********************************
1 . T I
1 . 2. Remove Fear (1)
1 . 93-96
1 . 22 PAUSE 0: GO SUB 36
1 . 00380 LD E,A
1 . 00190 RET
1 . 00050 ; PORT No254"
1 . 00050 LD DE,ADR
1 . 7. Speak with Animals (2)
1 . 2720 LET TS=Z
1 . 1. Plane Shift
1 . THAC0 -
1 . PRINT PAPER 3; INK 0;AT n*5+1,
1 . 00090 LD BC,260
1 . 00070 ;(C) 1995
1 . OR E
1 . LET n=PEEK p: LET x=x-4
1 . LET n=PEEK p: LET x=x+4
1 . R2/R3, R4/R5
1 . 2.3.
1 . (TALK ORCO, TAKE ORCO).
1 . 19 IF y$="o" THEN LET p=p-1:
1 . XX=10 HP=HP-8
1 . WARNING ... ...
1 . Sheduled rounds -
1 . 17 IF y$="p" THEN LET p=p+1:
1 . *********************************
1 . 12 IF y$="o" OR y$="p" THEN P
1 . -
1 . 37 IF y$="b" AND q=1 THEN LET
1 . 10. Exaction (7)
1 . 00420 LD D,A
1 . * * *
1 . 00170 SRL B
1 . RET
1 . Length : #003A (00058)
1 . 00180 EI
1 . 1 BORDER 0: PAPER 0: INK 7: C
1 . 2.1.
1 . * * *
1 . NEVERENDING STORY, SHERLOCK, MES-
1 . LD (HL),A
1 . 21 PRINT #1;"INSERT RESCUE DIS
1 . * * *
1 . Weights -
1 . T i
1 . OUT (C),A
1 . 00290 IM 1
1 . 00250 CALL #1601
1 . 00090 AND %00001111
1 . Heavy bag -
1 . 5. Messanger (2)
1 . 00030 ENT
1 . PY SYSTEM"'"TRACK TO 160 TRACK O
1 . 9 PRINT PAPER 2;AT z,x;")";C
1 . 2 CLEAR 38999: FOR i=39000 TO
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 -uprABlEniE"
1 -PLANKTON-.
1 -95, N1.
1 -95, DEC DE
1 -95 N1,2.
1 -94, N4,
1 -94, N3,
1 -93, N1-2,
1 -45), 1995. 00020 ORG 40100
1 -4.
1 -37.
1 -3.
1 -1.
1 -1.
1 -0.
1 -0.
1 -------------------------------------------
1 -(2 3HAKA)";h$:
1 -";D1;":"; US 5980 PRINT ''"
1 -";D1;":"; US
1 - TIST)
1 - SER/BASIC
1 - SCORPION-ZS-256,
1 - RESCUE DISK.
1 - MAGIC DOOR
1 - LASER'
1 - GON-128 - D85, 6
1 - CARD, PICK, STONE BLOCK, MATC-
1 - BO-2"
1 - =?MLN
1 - 14. Animal Summoning II (5)
1 - 13. Animal Growth (5)
1 - 11. Giant Insects (4)
1 - - E.S.I. - 1992,
1 - ("LOSW"),
1 - #FB -
1 - #FA63.
1 - #E7),
1 - #3D13 -
1 - #13FD
1 - m*4+1;(n*8+m); PAPER 0; INK 7;AT
1 - ________________________________
1 - UN
1 - TO RESCUE DISK"''"2- RESTORE
1 - STORE SYSTEM"'"TRACK FROM 160 TR
1 - RINT AT z,x;" "
1 - LE"'"AND PRESS ANY KEY..."
1 - KE I+VAL "63999",CODE A$(I): NEX
1 - HR$ 8; OVER 1;"D"; OVER 0; PAPER
1 - F THIS DISK"'"AND PRESS ANY KEY.
1 - AL "64018",D2
1 - =40000: LET n=PEEK p: LET z=2: L
1 - :";: INPUT D1: PRINT D1'
1 - 9057,160: RANDOMIZE USR 39014
1 - 9. Summon Insects (3)
1 - 9. Confusion (7)
1 - 7. Quest (5)
1 - 60"'" TRACK OF THIS DISK"''"4-
1 - 6. Fire Action (4)
1 - 5. Cloak of Bravery(4)
1 - 4. Charm Person or Mammal (2)
1 - 3. Locate Animals (1)
1 - 2300: LET n$=n$+CHR$ PEEK i: NEX
1 - 2. Combine (1)
1 - 160 TRACK OF THIS DISK"
1 - n*5+2,m*4+1;PEEK (4e4+n*8+m),:
1 - TO 40015: POKE i,0: LET j=i-400
1 - LD L,A ;
1 - LD A,(IY+7) :
1 - CALL (HL) ;
1 - ADD A,L ;
1 - 39009,6: RANDOMIZE USR 39000: R
1 - 0;PEEK p
1 - 0,136: DRAW 255,0: GO TO 3
1 - Start of object: #9C40 (40000)
1 - Spar time -
1 - Road work -
1 - Purse -
1 - Light bag -
1 - Length : #0018 (00024)
1 - LD HL,51697
1 - L2 SRL (HL)
1 - L2 LD A,(HL)
1 - KIDSON SOFT GROUP
1 - INC HL INC HL
1 - CS+SS -
1 - 8.
1 - 4.
1 - 4)
1 - 35 IF y$="b" AND q=0 THEN PRI
1 - 33 PRINT #1;"INSERT DISK TO RE
1 - 31 RANDOMIZE USR 39000: POKE 3
1 - 3. KEMPSTON
1 - 3.
1 - 3)
1 - 29 PRINT #1;"INSERT DISK TO CO
1 - 23 LET a=USR 15619: REM : LOAD
1 - 21 PRINT "FILENAME 2:";: INPUT
1 - 21 IF y$="c" THEN FOR i=40000
1 - 20 INPUT "INPUT DISKNAME? ";n$
1 - 2.
1 - 2)
1 - 16 PAUSE 0: GO SUB 36
1 - 14 LET n$="": FOR i=42293 TO 4
1 - 10 LET n=PEEK p: LET y$=INKEY$
1 - 1. YOU HAVE 48K -
1 - 1.
1 - 00520 OUT (254),A
1 - 00510 LD A,16
1 - 00490 BIT 0,C
1 - 00480 JR NZ,CICL1
1 - 00460 TO2 LD A,10
1 - 00450 LD B,8
1 - 00370 LD D,E
1 - 00340 DEFB 9,10,11,12
1 - 00310 RET
1 - 00270 LD A,#3F
1 - 00240 SRL E
1 - 00230 RL C
1 - 00230 CALL 11560
1 - 00220 LD A,(TRK)
1 - 00210 CALL DOS
1 - 00200 LD HL,#2A53
1 - 00190 L1 DEC HL
1 - 00180 LD C,#1F
1 - 00180 JR NZ,L0
1 - 00180 JR C,L1
1 - 00150 LD C,2
1 - 00150 INC DE
1 - 00150 CP #5B
1 - 00140 LD A,(TRK)
1 - 00130 LD (#5CD6),A
1 - 00120 LD (#8181),HL
1 - 00110 LD HL,#0CFB
1 - 00110 CALL LINE
1 - 00100 LD B,0
1 - 00090 LD HL,BUFF
1 - 00080 ADD IX,BC
1 - 00060 ;written by Below S.
1 - 00060 LD IX,BUFF
1 - 00060 LD BC,768
1 - 00040 ;"GRAPHIC OF 6-TH BIT
1 - 00040 ; ENT
1 - 00040 XOR A
1 - 00030 ;the programm
1 - 00030 LD HL,#8000
1 - 00020 ; TR-DOS 5.03
1 - 00020 ORG 40000
1 - 00020 ENT
1 - 8 FOR n=0 TO 1: FOR m=0 TO 7:
1 - 5 INK VAL "7": PAPER NOT PI:
1 - 0 REM |28.03.95. Zelenogorsk|
1 - 0 REM | Vasilkov Ruslan |
1 - 00010 BUFF EQU 41000
1 - ....................
1 - OR E
1 - LD A,D
1 - JR NZ,L2
1 - OUT (254),A
1 - (300
1 - OR A
1 - ... ...
1 - ;
1 -
1 -
1 -
1 -
1 ,v2;"Press no. of option":
1 ,u6;n;",";
1 ,buf+2048+245
1 ,buf+2048+227
1 ,," KATA
1 ,," CTAH
1 ,," COPT
1 ,#D8 ;5.03
1 ,#8E ;5.01
1 ," bright(0-1)",0
1 ," paper(0-7)",0
1 ," flash(0-1)",0
1 , ZX Tools Deluxe",
1 , LAPTEVSOFT-1992
1 , FEMUR?
1 , DRAWN -
1 , DE:
1 , DCU 2.02 - 2.31,
1 , BEASTMEN'
1 , B,N,M,
1 , 99.
1 , 9 - 14.
1 , 24.
1 , 1995. 00010 ADR EQU 41000
1 , 1995. 100 IF x>30 AND z=2 THEN LET z
1 , 1995.
1 , 1995.
1 , 1994).
1 , 146.
1 , 133.
1 , 12-8.
1 , STUN-GUN,
1 , OUTING, ZOMBI, DUSTIN, GREAT ES-
1 , Doom,
1 , Animal, Elemental, Healing, Plant
1 , 17. Creeping Doom (7)
1 , 16. Anti-Animal Shell (6)
1 , 10. Animal Summoning I (4)
1 , KEY TO START SEARCH": PAUSE VAL
1 , 1. Bless (1)
1 , LD HL,TAB_AD;
1 , 130 IF x<0 AND z=2 THEN LET p=
1 , 9.
1 , 25 IF a<>0 THEN RUN
1 , 20 FOR I=VAL "1" TO LEN A$: PO
1 , 19 IF a$<>"2" THEN GO TO 28
1 , 00170 IM 2
1 , 00140 LD A,H
1 , 00050 LD (SYSTEM),A
1 , LD A,D
1 , JR NC,LOAD
1 ,
1 ,
1 ,
1 ,
1 ,
1 ,
1 ,
1 +Horizontal
1 +*))('&%%$#""!
1 +"W\#"S\"K\6
1 *bj:ejGO:dj
1 *START TAPE
1 *START TAPE
1 *SPRITE INSERTING
1 *SPRITE DELETING
1 *FILE EXISTS
1 *ANIMATION
1 ********************************":
1 ********************************"
1 *********************** ZX-
1 )Horizontal
1 )GMR Ltd. Garbuzov
1 );a$(a+l,15
1 );" ";a$(a+l,11
1 );
1 );
1 ): Weeks until bout -
1 ):
1 ):
1 ):
1 ):
1 )."
1 )."
1 ). (
1 ). 00160 DI
1 ). 00210 DI
1 ). S": RANDOMIZE USR VAL "15619": R
1 ). B$: PRINT B$'
1 ). 00120 AND %00000111
1 ). "
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ), RG ATTR
1 )".
1 ) Garbuzov Alex
1 ) ? " ET FS=0.37*SFM
1 ) - 2-1
1 ) 2550 PRINT INK 4;"
1 )
1 )
1 )
1 (i*i+j*j):
1 (c) Garbuzov Alex MOCKBA 1992
1 (buf+2048+244),
1 (buf+2048+229),
1 (buf+2048+228),
1 (buf+2048+225),
1 (a-u,1-774)
1 (Y/N)?
1 (MasTer Debuger).
1 (EXTEND) osnoBnoE MEnq"
1 (965 bytes) *
1 (1-12) ?",M: 1910 LET FL=13.176396*FF+MLONG80
1 (095) 490-14-26
1 ((n-a)/k)+((n-a)/k
1 ((n-a)/k))
1 (&27) N (Y/X)+ACS SGN Y)/GR: END PROC
1 'CONVER-Utility' & Y.Kovalevsky
1 '."'''"
1 '+'P'+'Q'+'A'+Space+Enter).
1 ')"
1 ''" EXTEND MODE-B
1 $04.tx C
1 #E0,#D8,#D8,#00
1 #C0,#D8,#70,#00
1 #BC,#B0,#1E,#00
1 #60,#60,#60,#00
1 #0C,#0C,#0C,#00
1 #01,#19,#0F,#00
1 #00,#3F,#0C,#0C
1 #00,#0F,#18,#0F
1 #00,#00,#D8,#D8
1 #00,#00,#70,#D8
1 #00,#00,#6C,#76
1 #00,#00,#1C,#32
1 #"a\"c\"e\>82
1 "spredit2"
1 "sa pri pomowi oknA
1 "qtsa mAskA,cBEt i kolihEstBo."
1 "posrEdstBEnnym zAdAniEm rAzmE-"
1 "drivprof"
1 "RESTORES THE"
1 "NO 128K MEMORY!":
1 "NAME",Y$:
1 "NAME",U$:
1 "KAPTOTEKA
1 "INSERT DISK"
1 "HAVE BEEN"
1 "Alex MOCKBA 1992"
1 "AND PRESS
1 "?
1 ";AT 7,13; INK 2;"* * *" XT J: PRINT AT 2,21;"
1 ";AT 6,9; INK 4;"
1 ";AT 14,9;"
1 ";AT 11,9; INK 1820 INPUT AT 0,4; INK 3;"
1 ": END PROC
1 ": 17 PRINT #0''AT 0,0;"DISKNAME:
1 ":
1 ":
1 ":
1 "0)030!0,0" 8
1 ". 2.
1 ". XT-
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ","*-FX128 ",
1 ", N1, 3-6/1993).
1 ", "PROFI")
1 ",
1 ",
1 ",
1 ").
1 ").
1 ")
1 "(c) Garbuzov "
1 "(4!.cpopxp
1 "'"
1 "'"
1 """" """"
1 " Speccy,
1 " READ ONLY !"
1 " PROTECT"
1 " PROGRAM"
1 " DISK ERROR!"
1 " 121019,
1 " FLAG_O
1 " (FLD2)
1 " ink(0-7)",0
1 " B KAPTOTEKE ";n;"
1 " 5430 PAPER 1: BORDER 0: CLS
1 " 5510 PLOT INK 2;T,1: NEXT T
1 " HA
1 " PRINT ; FLASH 1; INK 2;"
1 " 2040 IF FD>=180 AND FD<270 THEN
1 " PRINT ; FLASH 1; INK 2;"
1 " 2;T,2: NEXT T
1 " ";G$;:
1 "
1 "
1 "
1 "
1 "
1 "
1 "
1 "
1 "
1 "
1 !LOAD FILE:
1 ! HARD PULL
1 !
1 !
1 !
1 !
1 !
1 }p5p=pMpUp] eP
1 zAdEPvki pErEd ABtopoBtorom"
1 v 4.0):
1 v 1.8. (
1 the Dragonhold, Fawkrin the
1 targguard (
1 s nadpisx`: zdelal simen
1 repeats",
1 progrAmmy:
1 obra}ajtes
1 nue...".
1 niel the Fey, Thimrath the Fey. MK-4.
1 movno ustAnoBitx B
1 lair, Cursor.
1 kith, Gloom, Shimeril, Kumar, It-
1 iS-EDITOR
1 horn, Dawn, Dreams, Dregrim,
1 halted. Press RESET to conti-
1 feyguard
1 diogenic - 1991,
1 dAET KombinAcia
1 ZX-Spectrum-128,
1 ZX SPECTRUM:
1 ZX SPECTRUM:
1 ZX SPECTRUM c
1 Y-CTPAT","Z-
1 XT.
1 Whispers, Shadows, Lothoril, *********************************
1 Weather.
1 WYVERN MOUNTAIN
1 WING-COMMANDER 3,
1 WARNING.
1 WARNING!
1 W-BOEH","G-
1 VENOM STRI-
1 V 1.08!`1
1 Turn Undead
1 Turn Undead
1 Tower of
1 Thrall, Brith, Rorath, Trorn,
1 Thrall'a,
1 Thanks to Rst7 for TASM 3.0 (MASM
1 TRACK KEEPER.
1 TRACK KEEPER
1 TRACK KEEPER.
1 TRACK KEEPER (
1 TR-DOS: "
1 TR-DOS.
1 TR-DOS.
1 TR-DOS.
1 TR-DOS, 00190 LD A,#F4
1 TR-DOS), 250-260 (
1 TR-DOS -
1 TR-DOS -
1 TR-DOS (
1 TR-DOS 20-25
1 TOR, SHOCK MEGADEMO
1 THE VINDICATOR!
1 THE EXTERMINATOR (Au-
1 THE EXTERMINA-
1 THE EXTERMI-
1 THARGOID'
1 TH (TO HIT),
1 TERMINATOR-2.
1 TER. EDURANCE -
1 T-TPEXM","X-
1 Summoning).
1 Speccy,
1 Skulkrin, Lorgrim the Wise, Kor-
1 Shadows.
1 Shadows'a
1 Sales Curve 1991,
1 SYMBOL SHIFT,
1 STUNT-GUN'
1 STS (v3.2 or v3.3) or MTD
1 SRL (HL) 00110 AND B
1 SPRITESGEN.
1 SPECTRUM".
1 SPACE. 00530 JR LOOP1
1 SOS 48).
1 SOFTWARE,
1 SMELL, R (
1 SHOCK MEGADEMO,
1 SHADOWLAND'
1 SHADOW-
1 SEARCHER. 15 FOR I=VAL "64E3" TO VAL "64
1 SEARCH RO-
1 SCREEN. 00130 LD A,#C9
1 SAM ON OUR MIDNIGHT
1 SAGE FROM ANDROMEDA, HUNCHBACK
1 ROSTRUM,
1 RODLAND, FAIRLIGHT-2
1 RODLAND (The
1 ROCK STAR.
1 RIGEL'S REVENGE
1 RG ATTR "
1 RG ATR
1 RET Z.
1 RESCUE DISK,
1 REM. * * *
1 READ ONLY !
1 R7=56; R8=12; R9=12.
1 R7.
1 R1-R8.
1 QUAL
1 QLOAD.
1 PlayStation.
1 Plant,
1 PENTAGON-128
1 PENTAGON 128.
1 PAUSE=3
1 PAPER 0; INK 7).
1 PAPER 0; INK 0
1 Op;@;pOpO
1 OUT_SPRITE,
1 OUT (#0D),A.
1 ON ERROR
1 OMNI CORP,
1 OMNI CORP
1 OMEGA LTD."
1 NUM_E
1 NEXT POP BC
1 NEW POKER.
1 N8
1 N7
1 N6
1 N5
1 N4
1 N3
1 N2
1 N1
1 Morning, Athoril, Blood, Herath,
1 Mithard, Utarg of Utarg, Farflame
1 MicroART.
1 MicroART.
1 Master).
1 Magic: The Gathering.
1 MS0, MS1
1 MONACHUS.
1 MAX IWAMOTO. "
1 MATHROOM
1 MAGIC. 10 PRINT "FILENAME 1:";: INPUT
1 MAGIC.
1 MAGIC-SEARCHER
1 Ltd. MOSCOW
1 LIGHT-GU-
1 LEONARDO
1 LD A,#16 (
1 LASER-BASIC,
1 LASER SQUAD'
1 L 9C50: 5B 20 F7 CB 38 38 EB C9 :4D
1 Korinel'a.
1 Korinel'a
1 KNOTTED ROPE),
1 KES BACK
1 KEMPSTON/#FF. * * *
1 KEMPSTON-MO-
1 KEMPSTON / #FF. (
1 KEMPSTON
1 KAY-256.
1 JR DOS,
1 JP #3D2F
1 J -
1 Ilya Fomin.
1 INT!
1 Healing -
1 HP (Hot Points) -
1 HOMEP?";N2
1 HEXAGON OF HELIATRON
1 HANGING VINE)
1 HALT:
1 Gorleth the Fey, Rorthron the Wi-
1 GUARDIAN' .
1 GRAPPING HOOK,
1 GMT 3980 LET DLO=0.55+0.06*COS (FV*G
1 GIVE ...
1 GENTLY, HARD, QUICKLY -
1 GAN).
1 Fanatic Stas),
1 Fanatic Stas)
1 FREEWARE.
1 FOOTNOTE (
1 FLAG_O.
1 FLAG_O.
1 FLAG_O.
1 FLAG_O.
1 FLAG_O
1 FER-DE-LANCE
1 FER-DE-
1 FAIRLIGHT-2
1 F2A0: 3D ED 5B EB 5C 21 00 40 :BF * * *
1 F298: 7F C2 D8 F2 0E 08 CD 13 :8B
1 F290: 5C 0E 0A CD 13 3D 79 CB :57 2:5030/94.28
1 F288: CD 3C 20 C9 3E 43 32 E5 :04
1 F280: 0C F3 11 53 F3 01 0C 00 :D5
1 F278: 0C F3 D5 CD E3 F2 D1 CD :7E
1 F270: 0C F3 D5 CD E3 F2 D1 CD :76
1 F268: D7 CD E3 F2 11 00 00 CD :B1
1 F260: 01 07 00 CD 3C 20 3E 0D :CE
1 F258: 8C F2 22 15 FA 11 65 F3 :62
1 F250: DD 5C 01 08 00 ED B0 CD :EE
1 F248: F2 22 13 FA 21 08 FA 11 :8F
1 F240: 5C 01 08 00 ED B0 CD 8C :8D
1 F238: 01 16 F3 21 00 FA 11 DD :3D
1 F230: AF 3D 32 8C 5C 3E 02 CD :35
1 F.I.R.E.
1 Elemental.
1 Elemental
1 EXTEND MO- 00050 LD A,D
1 EVERYTHING
1 EN- STRENGTH -
1 Disk-Doctor.
1 DOS). 00350 DEFB 13,14,15,16
1 DJNZ ...
1 DISK ERROR!
1 DISASSEMBLE
1 DEATH DOG?
1 DD63, DD56
1 DCU 2.02 - 2.31,
1 DART?
1 D59 (I1-I8).
1 Create).
1 Constitution>12).
1 Coming soon from us: MasTer Debuger
1 Combat Mode
1 Combat Mo-
1 Citadel of
1 Charm>16)
1 CREDITS). mov
1 COPY-COPY
1 CALL DOS. 00300 JP #3D2F
1 CALL DOS
1 BY THE PROGRAM
1 BUFF. 9C40: 0E BF 41 78 CD 69 9C 21 :55
1 BUFF. 00130 PUSH IX
1 BUFF.
1 BROKEN RUNESTONE
1 BORDER 0: PAPER 0: INK 0: 00150 OR C
1 BLOW DOWN REED
1 BEGIN...END'o
1 BASIC-128.
1 Animal, Weather
1 Adventu-
1 AY-3-8910 (YM2149F),
1 ATTACK BEASTMAN WITH SWORD.
1 ATN
1 ATM-TURBO-2,
1 ATM-TURBO-2,
1 ATM-TURBO-2
1 ATM-TURBO-
1 ATM-TUR-
1 ATM-TUR-
1 ASC Sound
1 ARKANOID 1
1 AIRLOCK)
1 AEGYPTUS
1 ADVENTURE,
1 AD.
1 ACCEPT,
1 AC (Armor Class) -
1 A -
1 ?(Y/N)"; LINE A$
1 ?",K FL=ANGLE
1 ?",G: LET MEMG=G GLE=FJ: PROC ANGLE: LET FJ=ANGLE
1 ?"''"
1 9CE4: C5 01 20 00 DD 09 C1 32 :3F 00260 JR Z,L5
1 9CDC: 27 9D 3C FE 08 20 08 AF :55 00250 CP 0
1 9CD4: ED B0 E1 D1 DD E1 C1 3A :78 00240 LD A,(M1)
1 9CCC: 57 01 20 00 E5 DD E5 E1 :68 00230 L4 LD (M2),A
1 9CC4: 7A 0F 0F 0F E6 03 F6 58 :3E 00220 RET
1 9CBC: D5 01 20 00 ED B0 D1 D5 :91 00210 JR NZ,START
1 9CB4: 06 00 CD 12 9D C5 DD E5 :59 00200 OR E
1 9CAC: 01 00 18 DD 09 21 28 A0 :30 00190 LD A,D
1 9CA4: AF 32 27 9D DD 21 28 A0 :AB 00180 JR NZ,L1
1 9C90: C3 56 9C E5 C5 06 07 23 :BB
1 9C88: CB 11 30 E6 C9 00 00 00 :DF 9C50: 23 0B 78 B1 20 F6 76 76 :45
1 9C80: E6 07 C8 14 3D 20 FC C9 :07
1 9C80: 28 01 C9 F1 FB C9 00 00 :C3
1 9C80: 20 F6 2B 7C FE 41 30 FA :42 9C48: 40 01 00 18 1A A6 12 13 :22
1 9C78: DB FE CB 4F 28 F8 CB 47 :39
1 9C78: 5F 7A E6 18 F6 40 57 78 :F0
1 9C78: 5C C9 00 00 00 00 00 00 :39
1 9C78: 1A A1 77 23 13 7C FE 5B :51 9C40: 21 00 00 3E 0A F5 11 00 :4B
1 9C70: D8 7C D6 08 67 C9 00 00 :6E 00160 LD A,B
1 9C70: B1 20 D6 21 28 9F 22 36 :F3
1 9C70: 5F E6 07 0F 0F 0F 82 53 :5A
1 9C70: 19 06 00 70 18 DF 3E 7F :4F
1 9C70: 0E 00 21 00 58 11 28 B8 :84
1 9C68: C9 16 00 0F 0F 0F E6 1F :15
1 9C68: 7C E6 07 C0 7D C6 20 6F :FF 00150 DEC BC
1 9C68: 11 00 40 01 00 18 ED B0 :0B
1 9C68: 10 E0 0D 20 D8 C9 00 00 :C2 00340 RRCA
1 9C68: 06 3F 70 18 E8 21 00 58 :32
1 9C68: 00 7B B2 D1 12 13 0B 78 :AA 9C60: 76 18 EC 3E 20 D7 C9 00 :74
1 9C60: EB 01 00 03 ED B0 C9 24 :75 00140 L3 INC HL
1 9C60: C9 00 00 00 00 00 00 00 :C5
1 9C60: 79 E6 07 FE 01 20 02 1E :A1 9C58: 3E 08 D7 23 76 76 76 76 :0C
1 9C60: 76 9C 18 E3 21 00 58 19 :9B
1 9C60: 09 2B 7C B5 20 FB E1 23 :80 00330 RRCA
1 9C60: 01 FF 1A ED B0 21 28 A0 :9C
1 9C58: C9 21 00 40 11 01 40 75 :E5
1 9C58: B6 57 23 7E 2B E6 F0 5F :02 9C50: FE 0D 28 0F D7 3E 8F D7 :A9
1 9C58: A0 11 00 58 01 00 18 09 :1F 00130 L2 DEC DE
1 9C58: 28 02 18 EB 11 00 00 CD :FF
1 9C58: 19 7C FE 5B 38 ED 21 C4 :EC 00320 AND 7
1 9C58: 02 18 EF 3C FE 08 38 E4 :5B
1 9C50: FE 4B 20 FA CB 39 38 EA :75
1 9C50: C1 CD 67 9C 10 F2 21 28 :C8 00120 JR L3
1 9C50: 67 28 1A 18 0F 13 7A B9 :02
1 9C50: 38 01 77 E6 07 28 01 35 :E7 00310 LD E,A
1 9C50: 23 13 E5 37 ED 42 E1 30 :7E
1 9C50: 07 A7 20 02 16 00 7A 23 :6F 9C48: AF D7 AF D7 21 40 5D 7E :2C
1 9C48: FE CB 3F CB 3F D3 FE CB :92
1 9C48: FE 18 F6 00 00 00 00 00 :F0 00250 JR Z,ZERO
1 9C48: C5 E5 01 20 00 ED B0 E1 :2D 00110 LD (HL),A
1 9C48: 28 A0 EB CB 26 EB CB 16 :54
1 9C48: 23 7C FE 5B 20 F7 2B 7C :9A -
1 9C48: 03 D5 7E E6 0F 57 79 E6 :E5 9C40: 3E 02 CD 01 16 3E 16 D7 :2B
1 9C48: 00 58 E5 7E E6 3F D6 08 :A2 00300 AND 31
1 9C40: F3 DB FE CB 3F CB 3F D3 :8F 00240 CP C
1 9C40: F3 16 00 42 0E 03 5A DB :6D
1 9C40: AF 01 FF 5A 21 00 40 11 :57
1 9C40: 21 FF 3C 11 28 A0 01 00 :12
1 9C40: 21 00 40 11 28 A0 06 C0 :DC 00100 CALL L4
1 9C40: 11 07 00 0E 07 06 07 21 :37 00290 RRCA
1 9C40: 0E FF 21 00 58 7E A1 77 :F8
1 70: 6912 -
1 7.10.
1 7.10
1 7
1 6,9
1 6).
1 6 LS
1 6
1 500000 -
1 5.03, 5.04t
1 49280.
1 49280.
1 49279.
1 49279.
1 40, 50.
1 39057). 00100 RET
1 350-380.
1 31).
1 3000*8 -
1 3. 00550 OUT (254),A
1 3.
1 3 000 000
1 280-300 (
1 27512 (64
1 271000,
1 271000 (128
1 27020,
1 260-270.
1 260-270
1 255.
1 23. Changestaff(7) 1. Fairy Fire (1)
1 22. Wall of Torns (6)
1 21. Tern Wood (6)
1 21. Speak with Monsters (6) 1. Invisibility to Undead (1)
1 200-210 (
1 20. Transport via Plants (6)
1 20. Find the Path (6)
1 2.
1 2.
1 2, 3, 4, 5, 6, 8, 16.
1 1995 NN 1,2,3.
1 1995 N3 ***********************
1 1995 (c 4
1 1993 ShiSoft":
1 1991, 1992, 1993
1 1991 KORDIAL";
1 19. True Seeing (5)
1 19. Liveoak (6) 6. Sunray (7)
1 19. Anti-Animal Shell (6)
1 18. Pass Plant (5) 5. Rainbow (5)
1 18. Magic Font (5)
1 18. Dispell Evil (5)
1 18.
1 17. Commune with Nature (5) 6. Heal (6)
1 17. Anti-Plant Shell (5) 4. Moonbeam (5)
1 17. Anti-Plant Shell (5)
1 17.
1 16384 + (256 *
1 16. Stics to Snakes (4) 3. Starshine (3)
1 16. Spell Immunity (4)
1 16. Commune (5) 5. Cure Critical Wounds (5)
1 16.
1 15635 (#3D13
1 15. Tongues (4) 4. Neutralize Poison (4)
1 15. Speak wiyh Plants (4) 2. Continual Light (3)
1 15. Repel Insects (4)
1 140-160.
1 14. Reflecting Pool (4) 3. Cure Serious Wounds (4)
1 14. Protection from Lightning (4)
1 14. Plant Door (4) 1. Light (1)
1 13. Protection from Evil (4)
1 13. Hold Plant (4)
1 13. Divination (4) 2. Slow Poison (2)
1 128.
1 120-150):
1 12. Remove Paralysis (3)
1 12. Hallucinatory Forest (4)
1 12. Detect Lie (4) 1. Cure Light Wounds (1)
1 12.
1 12.
1 11. Tree (3)
1 11. Speak with Dead (3)
1 11. Protection from Fire (3)
1 100 - 1000
1 10. Spike Grouth (3) 17. Succor (7)
1 10. Negative Planr Protection (3)
1 10. Locate Object (3)
1 10-3.
1 10-3.
1 10-2.
1 10-1.
1 1.).
1 1. 00090 ENT
1 1.
1 1.
1 1-3;2-6;3-10
1 1,2,3, BORED OF THE RINGS
1 1,2
1 0.0.1980 1870 LET FM=FN+LONG80-LONGP: LET
1 0.
1 ...................
1 .....
1 -MY DYING BRIDE- THE BEST D
1 - SPACE).
1 - SCORE.
1 - RIGEL'S REVENGE 2.
1 - RESCUE DISK)
1 - N*k/100.
1 - DROP BE-
1 - 5200
1 - 5
1 - 39014), 00060 LD DE,0
1 - 24575 (#5FFF)).
1 - 0
1 - 0
1 - "; INK 3;"< 1430 DPOKE 23606,54777
1 - 1991-
1 ********************************* *********************************
1 *********************************
1 **"
1 *" 3530 DEF PROC MSTAR: REM
1 *"
1 (temporary)
1 (permanent).
1 (gnomes),
1 (dwarfs),
1 (Y/N)?
1 (Y/N)?
1 (Y/N)?
1 (Y/N)?
1 (Y/N)
1 (Wisdom)
1 (WEAR GOGGLES).
1 (USE OR-
1 (TIE CLAW).
1 (THROW RUBBLE TO LIGHT),
1 (THROW ALL INTO WINDOW),
1 (THREE STARS
1 (Strength>13,
1 (SWEETS)
1 (STRONG IRON
1 (SHARP OF GLASS).
1 (SCREWDRIVER).
1 (QUICK SAND).
1 (PUSH KNOB & TURN IT).
1 (PUSH BARS).
1 (PRESS GREEN BUTTON),
1 (PICK UP
1 (NEW BOXER).
1 (MEDKIT),
1 (LIGHT LANTERN)
1 (LIGHT FIRE).
1 (JUMP) -
1 (Imagine - 1988, 128K,
1 (Great Druid)
1 (Grand Druid).
1 (GRAPPING HOOK).
1 (GET BOXER),
1 (FIT TIMELINK).
1 (FIND GOGGLES)
1 (Expirience).
1 (EXIT) -
1 (EXAMINE ROOM
1 (ELLIOT) -
1 (DISK-DOCTOR'
1 (Constitution)
1 (Charisma),
1 (CY).
1 (CMOS).
1 (CLIMB TREE). "CORSET REPAIR KIT JUST 2/3 D".
1 (CIRCULAR),
1 (CANDLE),
1 (BARS).
1 (ANALYSER) +2%.
1 (49280).
1 (22528): JR NZ,L3
1 (20-25),
1 (0...160)
1 (0...15)
1 ("TURBO-2+"):
1 #FFFD.
1 #FF.
1 #FD.
1 #BFFD (49149),
1 #BFFD -
1 #A028 (41000)
1 #7FFD. 2. YOU HAVE STANDART 128K -
1 #7FFD.
1 #7FFD.
1 #7FFD.
1 #5E46.
1 #5E3E -
1 #5E3B (24123)
1 #5CD6 (23766)
1 #5B. 00250 RET
1 #5AFF).
1 #3D2F (15663).
1 #1F!
1 #16.
1 #14.
1 #13.
1 #13.
1 #11.
1 "ZX-Spectrum+" (
1 "YELL BEAR" -
1 "VAPRINT"):
1 "TURBO-2+"),
1 "Speed HI"
1 "Scorpion ZS-256")
1 "SEARCHERc"CODE 62000,316.
1 "SEARCHERc"CODE 62000,316
1 "RELOAD GAME",
1 "PASS THROUGH
1 "OPEN".
1 "Maximum Tracks"). KEY...": PAUSE 0: GO SUB 36
1 "MAYDAY...!",
1 "LONG ROPE",
1 "Hard Point"
1 "HOUR"
1 "FFORMAT"
1 "DEATH".
1 "ATM-TUR-
1 "0".
1 "$&(+-/2479<?ADGJMORUX[^adgjmptwz}
1 !" 4940 LET CONV1=WR: PROC CONV1
1 proizBoditsa oknom":
1 pri BXodE B MEnq BybirAqtsa"
1 pErEmEwEniE linzy"
1 hotq tut lu^
1 ZX-Spectrum
1 ZX SPECTRUM
1 ZE USR 39000 43 GO SUB 36: IF a$="n" OR a$=
1 W 255,0: PLOT 0,136: DRAW 255,0: 29 PRINT #1;"INSERT DISK TO CO
1 V1 4780 PROC DATA
1 USE 0 ANGLE=CSN: PROC ANGLE: LET CSN=A
1 UB 5780 ''"
1 TR-DOS - #10 (
1 TR-DOS
1 TR ING "00";D3;"
1 TO RESCUE DISK"''"2- RESTORE 6: RANDOMIZE USR 39000: RUN
1 TO 3750 M*GR)))/GR
1 TO 3720 R)+0.000009*SIN (LATIT*GR)
1 TN 3390 LET Y=QY: LET X=QX
1 TMOON*GR
1 THIS PROGRAM
1 THEN GO TO ON N;1140,1150,1160,1
1 THEN LET DELH=0.1
1 THEN GO TO 2380 2740 LET F=(ACS (SIN (LATIT/B*GR
1 TAMEM*GR ECW=KX
1 T x=28 20 READ m
1 T s1=s*2: LET d=(a-s1): PRINT AT RET Z
1 T n1=15 60 DATA ...
1 T i SAVE n$CODE 40000,4096
1 T AT z,x+2;" " LD HL,DATA
1 STIFFLIP
1 SPIDERMAN'
1 SLA (HL), 00120 LD (HL),A
1 SHOCK MEGADEMO.
1 SAN-SAN.
1 SA-
1 RIGEL'S REVENGE 1
1 RI,RL 5930 PRINT '"
1 RI,RL 5900 PRINT ''"
1 RET, 00260 CALL DOS
1 RESTORE
1 RANDOMIZE USR 0 -
1 R1-R8,
1 R)*COS (HCM*GR)-CCM)))/GR 4280 PROC STMOON
1 R)))/GR 4690 LET FD=SIN (DELTA*GR)/COS (
1 R P$="y" THEN GO TO 5890
1 R 0; PAPER 0;PEEK p;" ": OUT 655 OUT (C),A
1 PROFI, ATM-TURBO-2,
1 PICK UP+JUMP)
1 PENTAGON-
1 PAUSE 0 1860 LET FF=DATA+(H+0.016666)/24
1 PASE>."''"
1 OUT (#FD),A
1 OT 10,50: DRAW 210,0: DRAW 0,82: 1370 LET PIMOON=0.9507
1 OT OVER 1; INK 2,I,2: PLOT OVER
1 OKE i,a: NEXT i OF THIS DISK"'"AND PRESS ANY KEY
1 OF DISK"''"1- SAVE SYSTEM TRACK 32 POKE 39005,159: POKE 39009,
1 O TO 10 LD A,C
1 O 5840 5960 PRINT '"
1 O 5740
1 O 10 DATA DEFB ...
1 O 0 STEP -1: LET s=INT (a/2): LE CP 15
1 NK 4;" EDUCATIONAL ASTRO-SOFTWAR O TO 1550
1 NK 2;I+1,2
1 NK 2;"
1 NG "00";D3;"
1 NEXT I 4020 END PROC
1 N149, ("SCORPI-
1 N PAUSE 0 5300 DEF PROC CONV2: REM
1 N LET CVET=0 R)/PI
1 N GO TO 4780 5310 LET Y=INT (ABS (KV)/180)*18
1 N GO SUB 5780
1 Microprose.
1 M;".";G 1970 END PROC
1 M))/GR 3420 DEF PROC ATN: REM
1 LOAD "betbasic"CODE 55801 1290 LET LATSUN=0
1 LET ZNAK=-1 2500 PROC ECLECV
1 LET MEMM=M : LET ANGLE=FL: PROC ANGLE: LET
1 LD A,#13
1 LA*SIN DE)/(COS LA*COS DE)) WR
1 L-COPY
1 K TO SAVE"'"SYSTEM TRACK TO FILE 44 IF a$<>"y" AND a$<>"Y" THEN
1 K KEEPER": PRINT '"WRITTEN BY VA 30 PAUSE 0: GO SUB 36
1 K 2; FLASH 1;"
1 ISK"''"3- COPY SYSTEM TRACK TO L STORE SYSTEM"'"TRACK FROM LAST T
1 IRB. 00: OUT 65533,j: OUT 49149,0: NE
1 ION-256").
1 INPUT A$ LD C,#0A
1 INK 4;O$: NEXT N LS
1 INK 3;">";O$;"<"
1 ING "00";D2: REM
1 INE(T*GR) 2560 END PROC
1 IMOON/ECX P -1
1 HP +5 temp
1 HP +1 perm
1 HEN PROC PRECL 5320 LET KX=KV-Y*(KV>=180)+(180+
1 HEN PROC OPTION
1 HEN PRINT #0;"
1 HEN PAUSE 200 5910 PRINT ''"
1 HEN LET CVET=0 2490 PRINT AT 3,1; INK 3;"*
1 HAVE 48K" 121,61,119,237
1 HALT).
1 HACKER
1 GO TO 4790 1: CLS : PROC OPTION
1 GO TO 10 INC HL
1 GENS4.
1 G/4) P: LET ANGLE=FK: PROC ANGLE: LET
1 Farflame the
1 FAZ=X 2400 LET Y=SGN X: LET Z=ABS X*RD
1 EXTEND 00070 INC A
1 ETR+95-DIAMETR 2610 LET X=T: LET Y=F
1 ET YE=11: REM
1 ET XCV=GXL+1 2640 LET X=DELTA: LET Y=ALFA
1 ER 1;">"; OVER 0;O$; OVER 1;"<"
1 ENTER>" 1440 END PROC
1 EMOON*COS ((FY+FA)*GR)) 5560 LET END=0
1 E3" LF28C LD A,#43
1 E "; INK 3;"*"; AT 16,8;"(C) SAM 1840 END PROC
1 DREAM MAKERS
1 DIM BODROV 2.04.95": PRINT TAB 31 RANDOMIZE USR 39000: IF PEE
1 DIAMETR*GX+95-DIAMETR 2580 LET F=ALFA: LET T=DELTA
1 DEL )/GR+(ACS (SGN DR))/GR
1 DD15.1
1 D=29 : LET ANGLE=FQ: PROC ANGLE: LET
1 D2,
1 D-C*7 2030 IF FD>=90 AND FD<180 THEN
1 CRYSTALL
1 CM*SIN (X*GR)-SCM)/(RCM*COS (X*G 4270 LET X=ST1S: LET Y=ST2S
1 CLIMB,
1 CAT 39 PRINT #1;"FILE IS NOT FOUND
1 C+U+K-114: RETURN 2020 IF FD>=0 AND FD<90 THEN PR
1 ATM-TURBO-2.
1 ATM-TUR-
1 AST"'" TRACK OF THIS DISK"''"4 RACK"'"AND PRESS ANY KEY...": PA
1 ARA 1994" 1850 DEF PROC FAZ: REM
1 AD SYSTEM"'"TRACK AND PRESS KEY. TS!"'"OVERWRITE (Y/N)?"
1 AC +5 temp
1 AC +1 perm
1 =LD 3280 IF A>24 THEN LET A=A-24
1 ; LINE H$ 1950 LET FV=FK+FW-FI-FS: LET FA=
1 : LET Y=KCPRI 5920 PRINT '"
1 990 3990 LET LATMOON1=LATMOON+DLAT*H
1 979: GO SUB 1700: LET D(1)=D 1900 LET FJ=FN+FE+LONG80: LET AN
1 9280 192,3,120,189
1 9. Speak with Animals (2)
1 9. Snare (3) 16. Gate (7)
1 9. Remove Curse (3) * * *
1 8. Plant Growth (3) 15. Exaction (7)
1 8. Meld into Stone(3) 12. Resurrection (7)
1 8. Magical Vestment (3)
1 8. Know Alignment (2) 5. Symbol (7)
1 8. Holy Word (7) 18. Transmute Rock to Mud (5)
1 8-9
1 7. Warp Wood (2) 14. Conjure Earth Elemental (7)
1 7. Insect Plague (5) 17. Spike Stones (5)
1 7. Flame Walk (3) 11. Restoration (7)
1 7. Find Traps (2) 4. Blade Barrier (6)
1 7. Dispel Magic (3) (
1 7. Chariot of Sustarre (7) 28. Earthquake (7)
1 692330,
1 690
1 64-32-23.
1 60: GO TO 2360 2750 LET Y=(ASN (SIN (0.835608*G
1 6070 END PROC * * *
1 6060 PROC OPTION
1 6050 INPUT LINE P$: IF P$="Y" O
1 6040 PRINT INK 4;''"
1 6020 PRINT '"
1 6010 PRINT '"
1 6000 PRINT '"
1 6. Withdraw (2)
1 6. Trip (2) 13. Creeping Doom (7)
1 6. Produce Flame(2) 10. Reincarnate (7)
1 6. Flame Strike (5) 16. Air Walk (5)
1 6. Detect Charm (2) 3. Glyph of Warding (3)
1 6. Changestaff (7) 27. Conjure Earth Elem. (7)
1 6): LET U=INT (G*365.25): LET D=
1 5: RANDOMIZE USR 39000: POKE 390 083,042,205,138,152,058,145,152,
1 5890 CLS : PRINT AT 0,3;"
1 5880 DEF PROC INSTR 5990 PRINT '"
1 5870 END PROC "
1 5860 PRINT #0;AT 1,1; INK 4;"
1 5850 RETURN 5970 PRINT ''"
1 5840 FOR J=0 TO Y: PLOT OVER 1;
1 5830 IF Q=0 AND N>2 THEN GO TO
1 5820 IF Q=0 AND I=128 THEN GO T
1 5810 LET N=N+1
1 5800 FOR J=0 TO Y: PLOT INK 2;I
1 5790 IF Q=1 THEN LET END=1
1 5780 IF Q=1 AND END=1 THEN GO T
1 5770 GO TO 5860 5950 PRINT ''"
1 5760 IF ERROR=11 AND LINE=9120 T
1 5750 IF ERROR=11 AND LINE=9080 T 5940 PRINT '"
1 5740 NEXT I: GO TO 5860
1 5740
1 5730 ON ERROR 5570
1 5720 IF Q=0 THEN GO SUB 5810
1 5710 IF Q=0 AND I<(128-RT+2) THE
1 5700 IF Q=1 AND I<128 THEN GO S
1 57,0: RANDOMIZE USR 39014: POKE 095,203,059,033,005,032,205,138,
1 5690 CIRCLE OVER 1; INK 2;I,KCP
1 5680 ON ERROR 5760
1 5670 LET Q=POINT (I,Y)
1 5660 PLOT OVER 1; INK 2;I,KCPRI
1 5650 IF KCPRI>=173 OR KCPRI<=3 T
1 5640 IF KCPRI>=173 OR KCPRI<=3 T
1 5630 IF KCPRI>=173 OR KCPRI<=3 T
1 5620 PLOT OVER 1; INK 2;I,1: PL
1 5610 CIRCLE OVER 1; INK 2;I,KCP
1 5240 LET RPT=(ECD+0.27)*MASH 1+PR-RJ
1 5230 LET MASH=32/0.569: REM 0.5 5580 IF INKEY$=CHR$ 32 THEN PRO
1 5220 LET ECZ=TETM/ECX: LET ECD=P 5570 LET N=0: FOR I=CI TO 32 STE
1 5210 LET ECX=(1-EMOON*EMOON)/(1+ 5550 LET CI=224: LET RJ=KC*CI
1 5200 DEF PROC ELEM2: REM
1 5190 END PROC 5530 CIRCLE OVER 1; INK 1;128,8
1 5180 PROC ELEM2 5520 CIRCLE INK 2;128,88,RPT
1 5170 IF WR<5.6 THEN PRINT ' INK 5500 FOR T=32 TO 224 STEP 8
1 5160 IF WR<=12 AND WR>=5.6 THEN 5480 FOR T=32 TO 224 STEP 32
1 5150 IF WR<=18.2 AND WR>12 THEN 2;0,175: DRAW INK 2;255,0: DRAW
1 5140 IF WR<18.2 THEN PRINT '' IN 5460 PRINT INK 6;AT 1,1;K;".";M
1 5130 IF WR>18.2 THEN PROC OPTION ING "00";D2
1 5120 IF WR>18.2 THEN PAUSE 0
1 5110 IF WR>18.2 THEN PRINT '' I
1 5100 DEF PROC PRECL 5420 DEF PROC GRAFECL: REM
1 5090 END PROC 5410 END PROC
1 5080 IF ECW>180 OR ECW<=2 THEN RAFECL: PAUSE 0: BORDER 1: PAPER
1 5070 IF ECW>178 OR ECW<=180 THEN 5390 LET KC=(Y1-ECY1)/64
1 5060 IF ECW>178 OR ECW<=180 THEN 5360 IF CQ=2 THEN GO TO 5390
1 5050 IF ECW>178 OR ECW<=180 THEN 5350 LET CQ=CQ+1: REM CQ=0
1 5040 IF ECW>179.45 AND ECW<=180 5340 DEF PROC Y1Y2: REM
1 5030 LET DELH=DELH/2: IF DELH<0. Y)*(KV<0)
1 5020 IF ECW>179.95 OR ECW<0.05 T 0
1 5010 IF ECW<178.2 AND ECW>=2 THE (0-180
1 5000 IF ECW<178.2 AND ECW>=2 THE 5290 END PROC
1 50-90
1 5. Wall of Thorns (6) 26. Chariot of Sustarre (7)
1 5. Resist Fire (Cold) (2) 9. Control Weather (7)
1 5. Prayer (3) 15. Produce Fire (4)
1 5. Heat Metal (2) 9. Regenerate (7)
1 5. Goodberry (2) 12. Weather Summoning (6)
1 5. Augury (2) 2. Wyvern Watch (2)
1 5. Aerial Servant (6)
1 5
1 4;"SPECIAL FOR 'ZX-REVIEW'" K 42273+16*PEEK 42274>2544 THEN
1 4990 IF ECW>0.05 AND ECW<=2 THEN 5270 LET Y1=ECH*MASH
1 4980 IF ECW>0.05 AND ECW<=2 THEN 5250 LET RT=(ECD-0.27)*MASH
1 49149.
1 4680 PRINT INK 7;"
1 4670 LET CONV1=DAWR: PROC CONV1 PRINT ' INK 3; FLASH 1;"
1 4660 PRINT INK 7;"
1 4650 LET CONV1=DAWS: PROC CONV1
1 4640 LET DAWR=GMTR-TS N PRINT '' INK 3; FLASH 1;"
1 4630 LET DAWS=GMTS+TS 4960 IF ECW<178.2 AND ECW>=2 THE
1 4620 LET TS=0.9973*(HZ-HS)/15
1 4610 LET HZ=(ACS SUM)/GR "
1 4600 IF ABS SUM>=1 THEN GO TO 4 4950 BEEP .1,7: PRINT ' INK 4;"
1 4590 IF ABS SUM>=1 THEN PRINT ' 4920 END PROC
1 4580 LET SUM=((COS (108*GR)-SIN 4910 IF WR>=90 THEN LET WR=180-
1 4570 LET HS=(ACS (-TAN LA*TAN DE 4900 LET KV=WR: PROC CONV2: LET
1 4560 LET LA=LATIT*GR: LET DE=DEL 4890 LET KV=ECW: PROC CONV2: LET
1 4550 DEF PROC SUNDAWN: REM
1 4540 END PROC 4870 LET ECH=(ASN (ECS*SIN (IMOO
1 4530 PROC HOUR: PROC POPR 4860 LET ECS=SIN (WR*GR)
1 4520 LET MALF1=MALF: LET MDEL1=M 4850 LET ECG=(ATN DR)/GR+(ACS SA
1 4510 PROC COORDM: PROC MCONV (ATN DR)/GR)
1 4500 DEF PROC ITER: REM
1 4490 END PROC ON*GR)
1 4480 PRINT "
1 4470 IF D2=60 THEN LET D1=D1+1: 4810 LET MC=FQ-0.16*SIN (FM*GR)
1 4460 LET CONV1=GMTS: PROC CONV1
1 4450 PRINT "
1 4440 IF D2=60 THEN LET D1=D1+1: 4790 PROC FAZ: PROC MEMFAZ: PROC
1 4430 LET CONV1=GMTREND: PROC CON 4770 DEF PROC ECLIP
1 4430 LET CONV1
1 4420 DEF PROC MPRI: REM
1 4410 END PROC
1 4400 LET GMTS=Y 4750 PRINT INK 4;"
1 4390 LET U=TS: PROC GSGM 4740 LET CONV1=RA: PROC CONV1
1 4380 LET GMTR=Y "
1 4370 LET U=TR: PROC GSGM
1 4360 LET TR=TRM-T: LET TS=TSM+T 4730 PRINT ' INK 4;"
1 4350 LET T=240*Y/B: LET T=T/3600 4720 LET CONV1=SA: PROC CONV1
1 4340 LET Y=(ASN (SIN (X*GR)/SIN 4700 LET RA=(ACS FD)/GR
1 4330 LET X=0.567+TET/2 LATIT*GR)
1 40015: LET n=PEEK p: LET z=7: LE 10 FOR n=0 TO 15
1 40 2680 PROC MSTAR
1 4. Spiritual Hammer (2) 14. Lower Water (4)
1 4. Locate Animals or Plants (1) 1. Silence (2)
1 4. Heroes' Feast (6) 25. Animate Rock (7)
1 4. Flame Blade (2) 8. Negative Plane Protection (3)
1 4. Call Woodland Beings (4)
1 4. Barkskin (2) 11. Word of Recall (6)
1 4. Barkskin (2) 8. Weather Summoning (6)
1 3960 DEF PROC HOUR: REM
1 3950 LET MFY=FY: LET MFJ=FJ: END E1+DE2)/2
1 3940 DEF PROC MEMFAZ 4300 LET TET=TETM/RO: LET DSR=(D
1 3930 END PROC 4290 LET TSM=Z
1 3920 LET DE=(ATN (COS (H1*GR)*(R 4260 LET TRM=Z
1 3910 DEF PROC DE: REM
1 39005,0: POKE 39009,6: RANDOMIZE 152,201,229,033,146,152,195,047,
1 3900 END PROC 4230 LET ST2R=A: LET ST2S=K
1 3890 PROC MPRI: INPUT "" 4220 PROC GSTGMT
1 3880 PROC ITER 4210 LET X=DE2: LET Y=A2M
1 3870 LET HOUR=0.5 4200 LET ST1R=A: LET ST1S=K
1 3860 LET H=GMTS: PROC FAZ 4190 PROC GSTGMT
1 3850 LET GMTREND=GMTR 4180 LET X=DE1: LET Y=A1M
1 3840 PROC ITER 2=DE
1 3830 LET HOUR=0.5 4170 LET X=MDEL: PROC DE: LET DE
1 3820 LET H=GMTR: PROC FAZ E1=DE
1 3810 PROC ITER 4160 LET X=MDEL1: PROC DE: LET D
1 3800 LET HOUR=12 4150 LET H1=HCM+D1
1 3790 LET H=0: PROC FAZ ALF-D2
1 3780 PRINT #0; INK 3; FLASH 1;"
1 3770 DEF PROC TIMEM: REM
1 3760 END PROC 4120 LET D1=(ATN (CCM*SIN (HCM*G
1 3750 LET Y=Y*0.99727 4110 LET RCM=RO*60.268322
1 3740 LET Y=Y-SGN Y*24: GO TO 373 4100 LET RO=(1-EMOON*EMOON)/(1+E
1 3730 IF Y>=0 AND Y<=24 THEN GO 4090 LET HCM=(ACS (-TACM*TAN (DC
1 3720 LET Y=U-X 4080 LET DCM=(MDEL1+MDEL)/2
1 3710 LET X=X-SGN X*24: GO TO 370 4070 LET CCM=COS (UCM*GR)+0.0000
1 3700 IF X>=0 AND X<=24 THEN GO 4060 LET SCM=0.996647*SIN (UCM*G
1 3690 LET X=DATA*0.0657098-CONST ))/GR
1 3680 DATA 17.385297,17.401211,17 4040 LET TACM=TAN (LATIT*GR)
1 3670 DATA 17.353468,17.369382
1 3660 DATA 17.387349,17.403263
1 3650 DATA 17.355521,17.371435
1 3640 DATA 17.389402,17.405316 4030 DEF PROC POPR: REM
1 3630 FOR I=1 TO YE: READ CONST: OMOON=LOMOON1: PROC MCONV
1 3620 IF G<1991 OR G>2000 THEN L 4000 LET LOMOON1=LOMOON+DLO*HOUR
1 3610 IF G=2000 THEN LET YE=10 OUR
1 3600 RESTORE 3640: LET YE=MEMG-1 R)
1 3590 DEF PROC GSGM: REM
1 3580 END PROC 3970 LET DLAT=0.05*COS ((FY-MC)*
1 3570 LET Z=12.03*X/(12.03+X-Y)
1 33,m: OUT 49149,n: IF q=1 THEN POP AF
1 32768!!! (
1 3200 PRINT ' INK 4;"
1 3190 LET CONV=MALF: PROC CONV
1 3180 PRINT INK 6;'" *
1 3170 DEF PROC PRCM: REM
1 3160 END PROC 3510 LET RD=1: LET X=D3: PROC RO
1 3150 LET MP=Z: LET MALF=MP/15 : LET D3=((FD2-D2)*60)
1 3140 PROC ATN ONV-INT CONV)*60: LET D2=INT FD2
1 3130 LET Y=MY: LET X=MX 3500 LET D1=INT CONV: LET FD2=(C
1 3120 LET MX=COS UM
1 3110 LET MY=MB*ME-TAN HM*MF 3490 DEF PROC CONV: REM
1 3100 LET MDEL=(ASN MJ)/GR 3480 END PROC
1 3090 LET MJ=MI*ME+COS HM*MF*MB IF D2=60 THEN LET D2=0
1 3080 LET MI=SIN HM 3470 IF D2=60 THEN LET D1=D1+1:
1 3070 LET MF=SIN EM UND: LET D2=X: LET RD=10
1 3060 LET ME=COS EM 3460 LET RD=1: LET X=D2: PROC RO
1 3050 LET EM=ECLIP*GR ONV1-D1)*60
1 3040 LET MB=SIN UM 3450 LET D1=INT CONV1: LET D2=(C
1 3030 LET UM=LOMOON*GR: LET HM=LA 3440 DEF PROC CONV1: REM
1 3020 DEF PROC MCONV: REM
1 3010 END PROC
1 3000 LET LATMOON=(ASN (SWR*SIN I 3410 END PROC
1 300-303
1 3. Shillelagh (1) 10. Wall of Thorns (6)
1 3. Sanctuary (1) 7. Rainbow (5)
1 3. Fire Trap (2) 7. Rase Dead (5)
1 3. Dispel Evil (5)
1 3. Detect Snares & Pits (1)
1 3. Chant (2) 13. Water Walk (3)
1 3. Blade Barrier (6) 24. Transmute Water to Dust (6)
1 3 1270 LET LONG80=278.83354
1 2; FLASH 1;"
1 2990 LET MG=Z: LET LOMOON=MG+MC 3400 PROC ATN: LET ALFA=Z/15
1 2980 LET Y=MD: LET X=CWR: PROC A GR
1 2970 LET CWR=COS (WR*GR) *GR)*QM+COS (LATSUN*GR)*QN*QQ))/
1 2960 LET MD=SWR*COS IM 3380 LET DELTA=(ASN (SIN (LATSUN
1 2950 LET IM=IMOON*GR 3370 LET QX=COS (LOSUN*GR)
1 2940 LET SWR=SIN (WR*GR) )*QN
1 2930 LET WR=FY-MC 3360 LET QY=QQ*QM-TAN (LATSUN*GR
1 2920 LET MC=FQ-0.16*SIN (FM*GR) 3350 LET QQ=SIN (LOSUN*GR)
1 2910 DEF PROC COORDM 3340 LET QN=SIN (ECLIP*GR)
1 2900 END PROC 3330 LET QM=COS (ECLIP*GR)
1 2890 IF DELTA>-0.245 AND DELTA<0 3320 DEF PROC ECLECV: REM
1 2880 PRINT INK 4;"
1 2870 PROC CONV1 3290 LET K=Y+E
1 2860 LET LD=GMTS-GMTR: LET CONV1 3270 LET A=24-E+Y
1 2850 PRINT "
1 2840 LET CONV1=GMTS: PROC CONV1
1 2830 PRINT "
1 2820 LET CONV1=GMTR: PROC CONV1 '"; USING "00";D3;"''"
1 2810 LET GMTS=Y MDEL*D1;"
1 2800 LET U=TS: PROC GSGM 3230 PRINT INK 4;"
1 2790 LET GMTR=Y 3220 PROC CONV
1 2780 LET U=TR: PROC GSGM 3210 LET CONV=ABS MDEL
1 27512, "
1 27010)
1 2390 DEF PROC ROUND: REM
1 2380 END PROC R)/SIN (F*GR)))/GR
1 2370 LET ANGLE=ANGLE-SGN ANGLE*3 )))/GR
1 237 (255-18).
1 2360 IF ANGLE>=0 AND ANGLE<=360 2730 LET B=COS ((T+DELTA)/2*GR)
1 2350 DEF PROC ANGLE: REM
1 2340 END PROC 2700 LET X=ST1S: LET Y=ST2S
1 2330 FILL INK CVET;XCV,55 2690 LET TR=Z
1 2320 IF FAZ<=0.03 THEN GO TO 23 2670 LET X=ST1R: LET Y=ST2R
1 2310 IF FD>=180 AND FD<360 THEN 2650 PROC GSTGMT
1 2300: LET n$=n$+CHR$ PEEK i: NEX 46 RANDOMIZE USR 15619: REM :
1 2300 IF FD>=0 AND FD<180 THEN L 2630 LET ST1R=A: LET ST1S=K
1 2290 NEXT T 2620 PROC GSTGMT
1 2280 PLOT INK CVET;GXL,-GX*DIAM 2600 PROC ECLECV
1 2270 PLOT INK CVET;GXL,GYL 2590 LET LOSUN=LOSUN+DLSUN
1 2260 LET GXL=GF*GY+215: LET GYL= 2570 DEF PROC TIMESUN
1 2250 LET GX=COSE(T*GR): LET GY=S ;"'";D3;"''"
1 2240 FOR T=0 TO 90 DELTA*D1;"
1 2230 REM
1 2220 PLOT INK CVET;215,95: DRAW 2530 LET DELTAMEM=DELTA
1 2210 LET GF=ZNAK*(2*FAZ-1)*DIAME "
1 2200 IF FD>180 AND FD<=360 THEN 2510 LET CONV=ALFA: PROC CONV
1 2190 IF FD>=0 AND FD<=180 THEN
1 2180 IF ANGLE>=0 AND ANGLE<=15 T LOSUN=ANGLE
1 2170 IF ANGLE>=345 AND ANGLE<=36 2480 LET LOSUN=CSN+CSE+LONG80: L
1 2160 LET CVET=6: IF FAZ<=.03 THE 2470 LET CSE=360*ESUN*SIN (CSM*G
1 2150 LET DIAMETR=40 M=ANGLE
1 2140 DEF PROC GRAFAZ: REM
1 214,092,058,145,152,014,002,205, * * *
1 2130 END PROC NGLE
1 2120 PRINT AT 21,0; INK 3;K$: PA 2450 LET CSN=360*DATA/YEAR: LET
1 2110 BEEP .5,7 2440 PROC DATA
1 2100 PROC GRAFAZ
1 2090 PRINT INK 3;"
1 2080 PRINT ; INK 4;"
1 2070 LET X=FAZ: PROC ROUND: LET
1 2. Shillelagh (1) 12. Water Breathing (3)
1 2. Protection from Evil (1) 6. Protection from Lightning (4)
1 2. Pass Without Trace (1) 9. Conjure Animals (6)
1 2. Dust Devil (2) 6. Feign Death (3)
1 2. Detect Poison (1)
1 2. Animate Object (6) 23. Stone Tell (6)
1 2. Animal Summoning I (4)
1 2 THEN LET DELH=0.2 5330 END PROC
1 1993) -
1 1810 FOR J=1 TO DAY: READ D$: NE 2060 LET FAZ=(1-COS (FD*GR))/2:
1 1800 LET NK=7: IF DAY=1 OR DAY=7 PRINT ; FLASH 1; INK 2;"
1 1790 RESTORE 1740 2050 IF FD>=270 AND FD<360 THEN
1 1780 DATA "
1 1770 DATA "
1 1760 DATA "
1 1750 DATA "
1 1740 DATA "
1 1730 LET C=INT (D/7): LET DAY=1+ INT ; FLASH 1; INK 2;"
1 1720 LET M=M+1: LET C=INT (M*30. 2010 PRINT AT 18,0; INK 4;"
1 1710 LET M=M+12: LET G=G-1 D=X
1 1700 IF M>=3 THEN GO TO 1720 2000 LET X=FD: PROC ROUND: LET F
1 170,1180
1 1690 LET DATA=D-D(1): GO TO 1730 D: PROC ANGLE: LET FD=ANGLE
1 1680 GO SUB 1700 1990 LET FD=MFY-MFJ: LET ANGLE=F
1 1670 PRINT AT 1,21;H;"
1 1660 PRINT AT 0,21; INK 6;K;"."; T-FJ)*GR))
1 1650 LET H=VAL H$ 1960 LET FY=FT+0.6583*SIN ((2*(F
1 1640 IF LEN H$>4 THEN GO TO 163 6.2886*SIN (FV*GR): LET FT=FL+FW
1 1630 INPUT "
1 1620 IF K>ED THEN GO TO 1570 J)-FK)*GR): LET FI=0.1858*SFM: L
1 1610 IF M=4 OR M=6 OR M=9 OR M=1 FQ=ANGLE
1 1600 IF RE=0 AND M=2 THEN LET E 1930 LET FQ=MUZLONG-0.0529539*FF
1 1590 IF M=2 THEN LET ED=28 FK=ANGLE
1 1580 LET ED=31: LET RE=G-4*INT ( 1920 LET FK=FL-0.111404*FF-MLONG
1 1570 INPUT "
1 15619: REM : LOAD "chr"CODE 5503 1260 LET EMOON=0.0549
1 1560 INPUT "
1 1550 INPUT "
1 1540 LET K=31: LET M=12: LET G=1 1890 LET FE=360*ESUN*SFM/PI
1 1530 CLS : DIM D(31) 1880 LET SFM=SIN (FM*GR)
1 1520 LET CQ=0: REM
1 1510 DEF PROC DATA: REM
1 1500 END PROC : LET FN=360*FF/YEAR: LET ANGLE=
1 1490 PRINT #0;AT 0,5; INK 2;K$:
1 1480 PRINT AT 15,1; INK 3;"*"; I 1830 IF A$="y" OR A$="Y" THEN G
1 1470 PRINT AT 10,4; INK 7;"
1 141120,
1 14,5,205,19,61,201 009,6: RANDOMIZE USR 39000: RUN
1 1110 BEEP .1,14: NEXT N: GO TO 1
1 1100 PRINT AT 4+2*N,2; INK 4; OV
1 1090 IF INKEY$="" THEN GO TO 108
1 1080 PAUSE 0: IF INKEY$=CHR$ 13
1 1070 READ O$: PRINT AT 4+2*N,2; 1460 PRINT AT 5,11; INK 7;"
1 1060 RESTORE 1120: FOR N=1 TO 5 1450 DEF PROC HEADER
1 1050 PRINT #0;AT 0,1; INK 2;"
1 1040 READ O$: PRINT AT 4+2*N,3; 1410 BORDER 1: PAPER 1: INK 6: C
1 1030 RESTORE 1120: FOR N=1 TO 5 1400 DEF PROC INTRO
1 1020 PRINT AT 3,3; INK 2; FLASH 1390 LET K$="
1 1010 CLS : BORDER 1: PAPER 1: PL 1360 LET TETM=0.5181
1 100000
1 1000 DEF PROC OPTION 1350 LET MUZLONG=151.950429
1 10.2.3.3
1 1. Magical Stone (1) 11. Stone Shape (3)
1 1. Entangle (1) 8. Animal Summoning III (6)
1 1. Endure Cold (Heat) (1) 5. Control Winds (5)
1 1. Detect Magic (1)
1 1. Create Water (1) 5. Cure Disease (3)
1 1. Create Food & Water (3) 22. Part Water (6)
1 1. Abjure (4) AD&D.
1 1 THEN LET ED=30 1940 LET FW=1.2739*SIN ((2*(FL-F
1 1 (PAPER 0; INK
1 060
1 033,064,156,017,000,000,006,016, 015,016
1 019,061,243,014,031,062,244,033
1 014,005,205,019,061,201,175,050,
1 0 THEN LET CVET=0 ET ANGLE=LOSUN: PROC ANGLE: LET
1 0 MOON*COS ((FV+FA)*GR))
1 0 09*COS (LATIT*GR)
1 0 +FA-FI+0.214*SIN (2*FK*GR)
1 0
1 / * - + & ',
1 .38 4050 LET UCM=(ATN (0.996647*TACM
1 .245 THEN PRINT INK 2; FLASH 1
1 .." 42 LET a$=INKEY$: IF a$="" THE
1 -4 PLEASE..." 09,6: RANDOMIZE USR 39000: RUN
1 - RESTORE SYSTEM TRACK FROM"'" USE 0: GO SUB 36
1 - LISTEN, LOOK,
1 - 2.
1 -
1 ,J: NEXT J: RETURN
1 +5 temp
1 +1 perm
1 ))/GR WR=KX
1 (Wisdom>12,
1 (Wisdom)
1 (WEAR MEDKIT),
1 (UNTIE
1 (TR DOS).
1 (TOWER OF
1 (TAKE SATCHEL)
1 (REMOVE ALL)
1 (REMOVE
1 (REED),
1 (R0...R15).
1 (Might)
1 (Level).
1 (KNIFE)
1 (Hackers
1 (HARPER)
1 (FI*GR)))/GR 4710 LET SA=360-RA
1 (Endurance)
1 (ENTER KIOSK)
1 (DATABANK) +5%,
1 (0...80)
1 (!)
1 (!!)
1 '' INK 2; FLASH 1;"
1 #C080
1 #7FFD (32765)
1 #7FFD (
1 #7DFD -
1 #60-#7F (
1 #20 (9
1 #17FD.
1 #16FD,
1 "Scorpi-
1 "LEGION OF STEEL WARRIORS"
1 "C BREAK CONT LASER SQUAD'
1 "Analyse track"
1 "ATM-TURBO-2",
1 "ADS
1 ": PRINT
1 "'"AND PRESS ANY KEY..." GO TO 41
1 z,x;")";CHR$ 8; OVER 1;"D"; OVE LD BC,49149
1 v3.0 (by
1 perNintendo, Genesis, Genesis-CDX, GameGear, GameBoy, Panaso-
1 nic-3DO
1 nation.
1 n$CODE 40000,4096 48 PRINT #1;"NO SPACE ON DISK!
1 a$>"4" THEN GO TO 6 36 BEEP .01,10: RANDOMIZE USR
1 Y1Y2 GLE
1 WYVERN MOUNTAIN
1 VE BED
1 USR 41000 80 LET A=INT (A/2): NEXT K
1 USR 39000: RUN 061,160,001,002,003,004,005,006
1 Thrall
1 TR-DOS 1 PLOT 0,16: DRAW 255,0: PLOT
1 THEN LET n1=255
1 THEN LET NK=2
1 SYSTEM TRACK FROM"'" RESCUE D 33 PRINT #1;"INSERT DISK TO RE
1 SYMBOL SHIFT (
1 STANDART 128K" 113,251,201
1 SHOCK MEGADEMO (Ethanot Soft Inc.
1 RUM-1.
1 RST 0,
1 ROCK"
1 REED).
1 RAM,
1 QUAL.
1 QUAL - "
1 PROC 4310 LET B=COS (DSR*GR)
1 PRINT ' INK 2;"
1 PRINT ' INK 2;"
1 OR m=9 OR m=10 OR m=13 THEN LE 50 NEXT n
1 OR m=11 OR m=12 OR m=14 OR m=15
1 N7 (INVASION).
1 Lightning Bolt
1 LET ZNAK=1 2520 PRINT ' INK 4;"
1 LET XCV=GXL-1 2660 LET ST2R=A: LET ST2S=K
1 LAST TRACK OF THIS DISK" 34 POKE 39005,159: RANDOMIZE U
1 LASER-BASIC,
1 Kor, Vorgrath, Ushgarak
1 IRLIGHT-2 (The Edge - 1987, 128K,
1 INK 7; FLASH 1;"
1 INK 2;I,J: NEXT J "
1 IF D2=60 THEN LET D2=0 4820 LET WR=FY-MC: LET ECR=COS (
1 IF D2=60 THEN LET D2=0 ELEM1: PROC PRIELEM1: BEEP .3,1
1 HP).
1 FROM "LOSW".
1 FOR i=39000 TO 39013: READ a: P PY SYSTEM"'"TRACK TO LAST TRACK
1 Dragonhold, Korniel the Fey,
1 DRAW -210,0: DRAW 0,-82 1380 LET DELH=2
1 DIZZY Y
1 Create Soft
1 CAPE, HOBBIT, CURSE OF SHERWOOD,
1 Black Square
1 BEGIN.....END
1 BEEP .3,11 2410 LET X=INT Z/(RD*RD)*Y
1 BAR -
1 ATM-TURBO-2
1 ATM-TURBO-2
1 ATM-TURBO-2
1 ATM-
1 AC (Armor
1 A11 LINE -
1 9C48: 01 FF 02 ED B0 21 00 40 :E4
1 9C40: 21 00 58 11 01 58 36 07 :FC
1 660912,
1 41028: READ B THEN PRINT "DETECTED A";K;" LIN
1 400 LET a=PEEK 40007: FOR i=7 T INC A
1 4,i+23;d: LET a=s: NEXT i: GO T JR LOOP
1 300 POKE p,n: PRINT PAPER 2;AT LD A,(HL)
1 2; OVER 1;"
1 200 IF m>21 THEN LET m=0 PUSH AF
1 1; INK 2;I+1,1: PLOT OVER 1; I
1 195272
1 190 IF m<0 THEN LET m=21 OUT (C),A
1 180 IF n<0 THEN LET n=n1 LOOP LD BC,65533
1 170 IF n>n1 THEN LET n=0: PRIN XOR A
1 160 IF m=0 OR m=2 OR m=4 OR m=7
1 16
1 150 IF m=6 THEN LET n1=31
1 15. Animal Summoning III(6)
1 141 IF m=1 OR m=3 OR m=5 OR m=8 40 OUT 49149,m
1 140 LET m=p-40000 30 OUT 65535,n
1 128", "TR-DOS",
1 12. Repel Insects (4)
1 100 DATA 007,008,009,010,011,012,013,014,
1 10.2.2.2.
1 10
1 (Y/N)"
1 (UNTIE WIRE),
1 (TAKE SHAPE).
1 (RPG),
1 (Q,A,O,P,Space)
1 (OPEN DOOR).
1 (HAMMER),
1 (ARTSTUDIO, AR-
1 (27512)
1 (095) 446-55-90
1 #C07F (49279)
1 #7FFD
1 #3D13
1 #2A53
1 "LASOBJ"CODE).
1 ! " 5470 PLOT INK 2;0,0: DRAW INK
1 z=2: LET x=0: LET q=0: LET n=0
1 XT i: GO TO 8
1 WYCORD
1 Utarg of
1 UND: LET D3=X: LET RD=10
1 TURQUOISE
1 TR-DOS:
1 T I
1 Start of object: #9CA4 (40100) 00040 LD DE,6144
1 Start of object: #9C40 (40000) 9C58: 00 40 01 00 18 ED B0 C1 :AB
1 Start of object: #9C40 (40000) 00500 PUSH BC
1 Start of object: #9C40 (40000) 00230 LD BC,768
1 Start of object: #9C40 (40000) 00230 HALT
1 Start of object: #9C40 (40000) 00200 JR Z,PLOT1
1 Start of object: #9C40 (40000) 00100 LD DE,BUFF+6144
1 Start of object: #9C40 (40000)
1 Start of object: #9C40 (40000)
1 ScaleScale inc Start Link Displac Rotation Rot. inc Cycles
1 SWORD OF POWER
1 SPACE -
1 SHARP OF GLASS
1 RINT AT 14,5; INK 6;"
1 R)/(RCM*COS (DCM*GR)-CCM*COS (CO
1 QUAL - "
1 Q, A -
1 PRINT AT 12,1; INK 3;"
1 PAUSE 0 5260 LET RL=ECZ*MASH/2
1 PAUSE EQU 4
1 OU IORQ -
1 OF DISK"''"1- SAVE SYSTEM TRACK
1 O, P -
1 NV
1 NUM_P -
1 NUM_E -
1 NT AT 4,0,,: LET q=1: GO TO 60
1 NEXT m: NEXT n
1 NEW PRO -
1 ND PRESS ANY KEY..."
1 N*GR)))/GR: LET ECU=ECG+MC
1 MUSIC CHIP
1 MOLECULATOR
1 Luxor the Moonprince, Morkin,
1 Length : #0084 (00132) 00050 PUSH DE
1 Length : #0050 (00080)
1 Length : #0046 (00070)
1 Length : #003A (00058) 00240 HALT
1 Length : #0036 (00054) 00510 LD BC,32
1 Length : #002E (00046) 00240 LDIR
1 Length : #0021 (00033) 9C60: 10 ED C9 00 00 00 00 00 :C2
1 Length : #0019 (00025) 00110 L0 LD A,(DE)
1 Length : #000B (00011) 00210 JR PLOT
1 LOOP PUSH BC ;
1 LOAD LD IX,16384
1 LF365 DEFM "SEARCH:"
1 LF360 DEFM "FILE "
1 LF353 DEFM "SEARCH END !"
1 LF343 DEFM "FILE NOT FOUND !"
1 LF33A INC HL F368: 52 43 48 3A 00 00 00 00 :72
1 LF337 POP DE F350: 44 20 21 53 45 41 52 43 :36
1 LET H=H+DELH C DATA
1 LE:"; INVERSE 1;n$; INVERSE 0'"A
1 LD C,5 "
1 LD BC,LEN*256+5
1 LD B,LEN
1 LARGE BEAD
1 L3 HALT
1 L3 INC HL Executes : #9C59 (40025)
1 L3 HALT L3 HALT
1 L2 LD A,(HL) LD B,8
1 L1 LD HL,#5800
1 L1 LD HL,#5800 PAUSE EQU 4
1 KE I+VAL "64007",CODE B$(I): NEX
1 K TO SAVE"'"SYSTEM TRACK TO FILE
1 K TO READ"'"SYSTEM TRACK FROM FI
1 ISK"''"3- COPY SYSTEM TRACK TO 1
1 INK CVET;0,-DIAMETR*2,ZNAK*PI 2540 LET CONV=ABS DELTA: PROC CO
1 HEXAGON OF HELIATRON
1 GO TO 4790 5400 BEEP .5,7: PAUSE 30: PROC G
1 GO TO 4780 5280 PROC Y1Y2
1 FN: PROC ANGLE: LET FN=ANGLE
1 FLAG_O -
1 Executes : #9CA4 (40100) 00060 POP BC
1 Executes : #9C40 (40000) 00520 SBC HL,BC
1 Executes : #9C40 (40000) 00250 RET
1 Executes : #9C40 (40000) 00250 HALT
1 Executes : #9C40 (40000) 00220 VOZWR INC DE
1 Executes : #9C40 (40000) 00120 AND C
1 Executes : #9C40 (40000)
1 ET x=0
1 EMM;".";MEMG;AT 2,1; INK NK;D$
1 EM+SS+
1 EM : LOAD "SEARCHc"CODE 62E3
1 CONTENDER (
1 C OPTION
1 BREAK
1 BORDER NOT PI: CLEAR VAL "32767"
1 ACK OF THIS DISK"'"AND PRESS ANY
1 <NN>
1 ;-------------------------- LD DE,LF360
1 :";: INPUT D2: PRINT D2'
1 :"""; INVERSE 1;n$; INVERSE 0;""
1 : RUN
1 : PRINT "SEARCHER FOR MAGIC-FILE
1 : IF y$="" THEN GO TO 10
1 : IF n$="" THEN RUN
1 9 RANDOMIZE USR a
1 80 STOP BIT 7,A
1 8. Imbue with Spell Ability (4)
1 75 IF A$="Y" OR A$="y" THEN G CALL #3D13
1 70 PRINT "CONTINUE ? (Y/N )": LD (#5CE5),A
1 6: RANDOMIZE USR 39000: RUN
1 60 FOR K=0 TO 14
1 60 CLS : RANDOMIZE USR VAL "62 RET
1 5590 ON ERROR 5750
1 5490 PLOT INK 2;T,1: PLOT INK
1 5440 LET CONV1=H+3: PROC CONV1
1 5380 PROC FAZ: PROC MEMFAZ: PROC
1 5370 LET ECY1=Y1: LET H=H-3
1 50 PROC OPTION 1340 LET MLONGP=349.383063
1 50 IF A=0 THEN PRINT "YOU HAVE 110 DATA 121,190,40,239,112,43,
1 5. Image (
1 5. Atonement (5)
1 4930 DEF PROC PRIELEM1
1 4840 LET DR=FD/ECR: LET SA=SGN (
1 4320 LET FI=(ACS (SIN (LATIT/B*G
1 4240 LET X=ST1R: LET Y=ST2R
1 4130 LET D2=D1/15
1 40 PROC HEADER 1330 LET MLONG80=64.975464
1 40 IF A=32768 THEN PRINT "YOU 100 DATA 40,12,62,17,119,237,
1 4. Style (
1 4. Purify Food & Drink (1)
1 4. Hold Person (2)
1 3430 LET Z=(ATN (Y/X)+ACS SGN AT
1 34 POKE 39005,160: POKE 39009, 110 DATA
1 30 PROC CONST 1320 LET IMOON=5.145396
1 30 LET A=PEEK 49279+256*PEEK 4 90 DATA 243,1,255,255,33,128,
1 3. Enthrall (2)
1 3. Detect Evil (1)
1 3. Colour (
1 2: LET x=28
1 2770 LET TR=TR-T: LET TS=TS+T
1 2760 LET T=240*Y/B: LET T=T/3600
1 2710 PROC MSTAR
1 2460 LET CSM=CSN+LONG80-LONGP: L
1 2420 END PROC
1 20 PROC INTRO 1310 LET ECLIP=23.441884
1 20 POKE C,B: NEXT C: RANDOMIZE E"
1 20
1 2. Invisibility to Animals (1)
1 2. Hair (
1 19
1 18 GO SUB 37: RUN ": PAUSE 0: GO SUB 36: RETURN
1 18
1 17 LET a=USR 15619: REM : SAVE 47 RETURN
1 17
1 16 LET n$="": FOR i=42293 TO 4 ERASE n$CODE
1 16
1 15 PAUSE 0: GO SUB 36 45 RANDOMIZE USR 15619: REM :
1 15
1 1420 DPOKE 23675,65112
1 14 PRINT #1;"INSERT RESCUE DIS "N" THEN RETURN
1 14
1 13 PAUSE 0: GO SUB 36: RANDOMI N GO TO 42
1 13
1 12 PRINT #1;"INSERT DISK TO RE 41 PRINT #1;"FILE ALREADY EXIS
1 12
1 11 IF a$<>"1" THEN GO TO 19 40 IF A>2 THEN GO TO 48
1 11
1 10.2.3.6.
1 10.2.3.2
1 10 RANDOMIZE USR 58419 1300 LET DLSUN=0.985647
1 10 PAUSE 0: RUN !": PAUSE 0: GO SUB 36: RETURN
1 10 CLEAR 40999: FOR C=41000 TO 70 IF INT (A/2+0.5)> INT (A/2)
1 10
1 1. Race (
1 1. Command (1)
1 1. Animal Friendship (1)
1 1 2 3 4 5 6
1 057,0: RANDOMIZE USR 39014: POKE
1 016": POKE I,VAL "32": NEXT I
1 01.txt-02.txt 15-20
1 00860 SYSTEM DEFB 0 00020 ENT
1 00850 RET 00010 ORG 40000
1 00840 LD D,A
1 00830 OR D
1 00820 AND 7
1 00810 LD A,B
1 00800 LD D,A
1 00790 OR 64
1 00780 RRCA
1 00770 RRCA
1 00760 RRCA
1 00750 AND 192
1 00740 LD A,B
1 00730 LD E,A
1 00720 RLCA
1 00710 RLCA
1 00700 AND 56
1 00690 LINE LD A,B
1 00690 LD (HL),B * * *
1 00680 RET
1 00670 JR NZ,START
1 00660 ZVUK
1 00660 L3 INC HL
1 00660 CP 192
1 00650 LD D,B
1 00650 LD A,B
1 00640 ZAGR LD B,(HL)
1 00640 CALL LINE
1 00630 LD C,#58 9CD0: 18 EE FB C9 00 00 00 00 :36
1 00630 INC B
1 00620 POP BC
1 00620 LD A,24 9CC8: 3E 7F DB FE CB 47 28 02 :36
1 00610 START LD HL,16384 9CC0: 3E BF DB FE CB 47 28 CD :39
1 00610 POP DE
1 00600 POP HL 9D24: B2 57 C9 00 00 00 00 00 :93
1 00600 JR NZ,SPROS 9CB8: 2F 5F 23 7C B9 7B 20 DC :B1
1 00590 JR NZ,LOOP 9D1C: 0F 0F F6 40 57 78 E6 07 :C9
1 00590 BIT 0,A 9CB0: 72 D3 FE 10 E9 14 28 01 :C5
1 00580 IN A,(254) 9CA8: 00 00 70 7F 1E 00 E6 18 :4F
1 00580 CP 192 9D14: 38 07 07 5F 78 E6 C0 0F :83
1 00570 SPROS LD A,#BF 9CA0: 00 00 ED 43 00 00 ED 43 :9C
1 00570 LD A,B 9D0C: 78 FE C0 20 A8 C9 78 E6 :CE
1 00560 JR OPROS 9C98: 3E 18 0E 58 46 50 ED 43 :B6
1 00560 INC B 9D04: EC E1 D1 C1 04 CD 12 9D :80
1 00550 POP DE 9CFC: B0 C1 D1 04 78 FE C0 20 :34
1 00540 POP BC 9CF4: D5 C5 01 20 00 ED 42 ED :67
1 00530 LDIR 9CEC: 27 9D C5 D5 E5 CD 12 9D :47
1 00530 LD B,2 9C80: 00 18 CB 2F 4F 06 02 11 :96
1 00520 LD C,A 9C78: 79 28 EC 7F 7F ED 43 00 :CF
1 00510 TO3 CPL 9C70: DD 18 1A 04 4F 78 FE FF :E3
1 00500 JR OPROS 9C68: 23 4F 06 01 7C FE 58 20 :6F
1 00490 RET
1 00480 EI
1 00470 END POP AF
1 00460 RET
1 00460 JR Z,TO4 9C48: DB FE CB 77 28 FA DB FE :FA
1 00450 LD A,C 9C40: F3 21 00 40 06 01 0E FF :44
1 00450 JR Z,END
1 00440 BITE1 LD C,(HL) 00130 TEST IN A,(254)
1 00440 CP 255
1 00440 BIT 0,A
1 00430 LD A,B Executes : #9C40 (40000)
1 00430 JR Z,KEY
1 00430 DI 00120 LD C,255
1 00420 LD DE,6144 00110 LD B,1
1 00420 LD C,A Length : #0094 (00148)
1 00420 BIT 1,A
1 00410 START LD HL,16384 00100 GO LD HL,16384
1 00410 PLUS INC B Start of object: #9C40 (40000)
1 00410 M2 DEFB 0
1 00410 IN A,(254)
1 00400 M1 DEFB 0
1 00400 KEY LD A,#7F
1 00400 JR SPROS
1 00400 JR KEY 00090 DI
1 00390 RET Z 00080 ENT
1 00390 RET 00210 HALT
1 00390 RET
1 00390 JR VOZWR
1 00390 JR NZ,OPROS 00950 RET
1 00382 LD (23606),HL Length : #0027 (00039)
1 00381 LD HL,ADR-256 Start of object: #9C40 (40000)
1 00380 RRA
1 00380 LD (HL),B
1 00380 JR NZ,NEXT 00200 INC HL
1 00380 EI 00070 ORG 40000
1 00380 CP 88 00940 END EI
1 00370 RRA
1 00370 OR C 00190 RST 16
1 00370 LD B,0
1 00370 LD A,H 00930 JR KEY
1 00370 BIT 0,A 00060 ;(C) 1995
1 00360 RRA
1 00360 LD B,1 00920 JR Z,END
1 00360 LD A,B 00180 LD A,8
1 00360 IN A,(254) 00050 ;written by Below S.
1 00360 ADD HL,DE
1 00350 PLOT1 LD HL,22528
1 00350 RRA
1 00350 LD C,A 00910 BIT 0,A
1 00350 LD A,#7F 00040 ;"PATEPHONE 2"
1 00350 DEFB 7,15, 8,16 21 PRINT #1;"INSERT RESCUE DIS
1 00350 DEC BC 00170 RST 16
1 00340 RET 00480 LOOP CALL LINE
1 00340 LD A,(M2)
1 00340 JR Z,START 00030 ;the programm
1 00340 JR VOZWR
1 00340 INC HL 00900 IN A,(254)
1 00340 INC DE 00160 LD A,143
1 00340 DEFB 5,13, 6,14
1 00330 TO4 LD (HL),B 00890 LD A,#7F
1 00330 LD H,A 00470 PUSH HL
1 00330 LD (M1),A
1 00330 LD (HL),B
1 00330 LD (DE),A 00150 RST 16
1 00330 DEFB 3,11, 4,12 n$CODE 40000,4096
1 00330 BIT 0,A 00020 ; present
1 00320 TABL DEFB 1, 9, 2,10 "": LET a=USR 15619: REM : SAVE
1 00320 L5 INC A
1 00320 SUB 8 00460 PUSH DE
1 00320 POP DE 00140 JR Z,END
1 00320 LD B,63
1 00320 INC B 00880 JR Z,START
1 00320 IN A,(254) 00010 ;SeBco prog.
1 00310 KEY LD A,#BF
1 00310 RET 00210 LD HL,BUFF+6144
1 00310 RET
1 00310 OR D 00130 CP 13
1 00310 LD A,H 00450 PUSH BC
1 00310 JR Z,TO3 00870 BIT 0,A
1 00310 ADD HL,DE
1 00300 PLOT LD HL,22528
1 00300 M2 LD A,E 00120 LOOP LD A,(HL)
1 00300 RLA
1 00300 RET C 00440 GOTO LD (SYSTEM),A
1 00300 JR NZ,L5 00200 JR NZ,L2
1 00300 JR NZ,BITE
1 00300 DEC B 00860 IN A,(254)
1 00290 OR D
1 00290 LD L,A 00430 POP BC
1 00290 LD E,0 00110 LD HL,23872
1 00290 LD A,(M2)
1 00290 JR OPROS
1 00290 DEC C 00190 DEC C
1 00280 LD A,E 9CA0: CB 17 7B B2 20 DA 18 BF :1C
1 00280 LD (M1),A
1 00280 JR NZ,M2 00100 RST 16
1 00280 DJNZ L4 00180 DJNZ L1
1 00280 ADD A,32 00420 ADD IX,BC
1 00270 XOR A
1 00270 LD A,L 00410 LD BC,32
1 00270 INC HL 00170 POP BC
1 00270 DEC DE 9C98: CB 01 10 E7 23 1B CB 17 :17
1 00270 CP 1 00090 XOR A
1 00260 RET NZ 00400 PUSH BC
1 00260 POP HL 00160 POP HL
1 00260 INC HL 9C90: 18 06 3E 00 D3 FE 3E 00 :97
1 00260 AND %00000111 00080 RST 16
1 00250 LD A,C 00070 XOR A
1 00250 LD (HL),C 9C88: CB 41 28 06 3E 10 D3 FE :7D
1 00250 JR Z,PLUS 00810 LD A,H
1 00250 JR NZ,L6 00150 LDIR
1 00250 AND 7 00390 XOR A
1 00240 TO CP C 00800 INC HL
1 00240 OR L 00140 LD BC,32
1 00240 LD E,A 00060 RST 16
1 00240 LD A,H 00380 JR NZ,GOTO
1 00240 DJNZ TO 9C80: 4E 06 08 3E 0A 3D 20 FD :1A
1 00230 LOOP RLC C 9C78: EE 21 00 40 11 00 18 F3 :7F
1 00230 LINE INC H 00370 CP 8
1 00230 RET 9C48: 02 36 07 ED B0 06 10 C5 :9B
1 00230 LD A,H 00130 PUSH HL
1 00230 INC DE 00790 HERE LD E,A
1 00230 AND %11110000 00050 LD A,22
1 00220 ZED XOR A 00780 CPL
1 00220 L6 DEC HL 00120 PUSH BC
1 00220 RET 00360 INC A
1 00220 JR C,L1 9C40: 21 00 58 11 01 58 01 FF :BF
1 00220 DEC HL 00040 CALL 5633
1 00210 ZED RES 0,C 9C68: BF DB FE CB 47 28 0A 3E :1E
1 00210 LDIR 00350 LD A,(SYSTEM)
1 00210 LD HL,PAUSE 00110 CALL ADR
1 00210 LD A,(HL) 00030 LD A,2
1 00210 JR TO 00770 JR Z,HERE
1 00210 CP 8
1 00200 L3 INC A
1 00200 LD BC,768 00340 POP BC
1 00200 JR LOOP 9C60: 71 23 1B 7B B2 20 E0 3E :16
1 00200 JR C,L3 00100 L1 LD A,B
1 00200 INC HL 00020 ENT
1 00200 DEC A 00760 INC D
1 00190 XOR A 00750 DJNZ ZVUK
1 00190 SET 0,C 9C58: CB 81 3E 00 CB 01 10 E9 :43
1 00190 LD D,A 00010 ORG 40000
1 00190 JR L2
1 00190 EX DE,HL 00330 POP IX
1 00190 CP 91 00090 ADD HL,DE
1 00180 RET 00080 LD C,0
1 00180 LD A,H 00080 LD HL,BUFF-16384
1 00180 JR Z,ZED 9C50: CB 77 28 04 CB C1 18 04 :02
1 00180 JR Z,ZED 00740 OUT (254),A
1 00180 JR NC,L3 Executes : #9C40 (40000)
1 00180 ADD HL,BC 00320 POP DE
1 00170 L2 ADD HL,DE 00070 CALL ADR
1 00170 POP HL Length : #0023 (00035)
1 00170 LD BC,6144 00310 POP HL
1 00170 JR C,L1 00070 LDIR
1 00170 BIT 6,A 9C48: 08 3E 0A 3D 20 FD DB FE :67
1 00170 BIT 6,A 00730 LD (HL),D
1 00160 OPROS IN A,(254) 00720 AND 24
1 00160 SRL C 00060 LD BC,6144
1 00160 SBC HL,BC Start of object: #9C40 (40000)
1 00160 LD DE,22528 00300 LDIR
1 00160 IN A,(254) 9C40: 21 00 40 11 00 18 F3 06 :5F
1 00160 DEC (HL) 00060 LD A,B
1 00150 SCF
1 00150 LD HL,BUFF 00290 POP HL
1 00150 JR Z,TEST
1 00150 JR Z,L2 00050 L2 LD B,C
1 00150 JR NZ,L3 00050 LD DE,16384
1 00150 JR NZ,CICL
1 00140 L1 AND 7 00040 LD C,191
1 00140 CICL DEC A Executes : #9C40 (40000)
1 00140 PUSH HL 00200 RET
1 00140 DJNZ LOOP 00280 PUSH IX
1 00140 CP #50 00040 LD HL,BUFF
1 00140 BIT 6,A
1 00130 TO LD A,10 Length : #0068 (00104)
1 00130 LD A,H 00030 ENT
1 00130 INC DE 00190 DJNZ ONE
1 00130 CALL LINE 00270 PUSH HL
1 00120 L3 DEC HL 00020 ORG 40025
1 00120 BITE LD B,8 Start of object: #9C40 (40000)
1 00120 POP BC 00260 LD BC,32
1 00120 INC HL 00180 POP BC
1 00110 RL (HL) 00170 LDIR
1 00110 POP HL 00250 LD D,A
1 00110 JR NZ,L2 00010 BUFF EQU 41000
1 00110 DI
1 00100 L2 LD A,(HL)
1 00100 LDIR 00240 OR 88
1 00100 LD DE,6144 00660 JR KEY
1 00100 EX DE,HL 00160 LD BC,6144
1 00100 CP #5B
1 00090 SLA (HL) 00150 LD DE,16384
1 00090 LD HL,16384 00650 JR NZ,BITE1
1 00090 LD H,#58
1 00090 LD BC,32 00230 AND 3
1 00090 LD A,H
1 00090 AND (HL) 00130 LD (HL),A
1 00080 LP2 LD A,(DE) 00120 JR C,L1
1 00080 L2 EX DE,HL 00140 LD H,#23
1 00080 PUSH HL 00220 RRCA
1 00080 JR NZ,L3
1 00080 JR LOOP 00180 OUT (254),A
1 00080 INC HL
1 00080 ENT 00640 OR D
1 00070 LOOP PUSH BC 00210 RRCA
1 00070 OUT (254),A 00170 SRL A
1 00070 ORG 40000 00630 LD A,E
1 00070 LD DE,BUFF 00130 LD B,A
1 00070 LD BC,6144 00110 SUB 8
1 00070 LD (HL),A
1 00070 DEC L
1 00060 L3 HALT
1 00060 L1 LD HL,16384 00120 LD L,A
1 00060 ;(C) 1995
1 00060 SRL A 00160 SRL A
1 00060 LD DE,16384 00100 AND 63
1 00060 LD B,192 00200 RRCA
1 00060 AND C
1 00050 LP1 PUSH AF 00090 L3 LD A,(HL)
1 00050 L2 LD A,(HL)
1 00050 L1 LD L,PAUSE
1 00050 ;written by Below S.
1 00050 SRL A 00150 OPROS IN A,(254)
1 00050 LD DE,BUFF 00190 LD A,D
1 00050 LD BC,767 00180 OR (HL)
1 00050 LD BC,23295 00110 LD A,R
1 00040 LOOP IN A,(254) 00140 LD E,D
1 00040 L1 LD HL,#5800
1 00040 ;"PATEPHONE" 00600 DEC DE
1 00040 XOR A 00100 HALT
1 00040 LD HL,16384 00180 PUSH DE
1 00040 LD DE,22529 00170 INC HL
1 00040 LD B,%01111111
1 00040 LD A,10 00080 L4 PUSH HL
1 00035 LDIR Start of object: #9C40 (40000)
1 00034 LD BC,6911
1 00033 LD (HL),L 00240 RET
1 00032 LD DE,16385 00230 JR NZ,LP1
1 00031 LD HL,16384 00220 DEC A
1 00030 ;the programm 00590 INC HL
1 00030 ENT 9C60: 11 00 58 01 00 03 ED B0 :06
1 00030 LD HL,22528 00160 M1 LD A,D
1 00030 LD HL,0 00070 LD HL,22528
1 00030 LD C,%01111111
1 00030 ENT 00170 POP DE
1 00030 ENT 00090 ONE PUSH BC
1 00030 ENT
1 00030 DI 00130 LD C,3
1 00020 ; present 00580 DJNZ TO2
1 00020 ORG 40000 9C58: 10 F1 0D 20 E5 21 28 B8 :08
1 00020 ORG 40000 00160 LDIR
1 00020 ORG 40000 00080 LD B,#10
1 00020 ORG 40000
1 00020 ENT 00150 LD D,0
1 00020 ENT 00120 LD B,D
1 00020 ENT 00060 L5 LD B,7
1 00020 ENT
1 00010 PAUSE EQU 4
1 00010 BUFF EQU 41000 9C50: E5 01 20 00 ED B0 E1 C1 :31
1 00010 BUFF EQU 41000 00150 LD BC,32
1 00010 BUFF EQU 41000 00070 LDIR
1 00010 ;SeBco prog. 00570 LOOP1 RLC C
1 00010 ORG 40000 00140 JR NZ,M1
1 00010 ORG 40000 00110 LD D,0
1 00010 ORG 40000 00050 LD C,7
1 00010 ORG 40000
1 .."
1 - 150000
1 (READ RUNESTONE).
1 (FIT RUNESTONE)
1 "AY-BEEP".
1 ";: PRINT AT 2,21; INK NK;D$
1 "0"
1 ""'"AND PRESS ANY KEY..."
1 "
1 n$CODE 40000,4096
1 freeguard,
1 WEAPON
1 Utarg.
1 SYSTEM TRACK FROM"'" RESCUE D
1 RESTORE SYSTEM TRACK FROM"'"
1 RATH
1 Lothoril'a.
1 GR)
1 Fawkrin'a.
1 ANGLE=FM: PROC ANGLE: LET FM=AN
1 ADD A,A ;
1 A$: PRINT A$'
1 >25
1 >20
1 >15
1 >10
1 9 RANDOMIZE USR 15619: REM : 38 IF a>1 THEN GO TO 40
1 9
1 8,RT
1 8 IF a$<>"0" THEN GO TO 11 37 IF a=0 THEN RETURN
1 8
1 7 GO SUB 36 3438: RETURN
1 7
1 6 LET a$=INKEY$: IF a$<"0" OR 35 RUN
1 6
1 5 PRINT #1;TAB 4;"PRESS KEY 0 SR 39000: POKE 39005,0: POKE 390
1 5
1 4 PRINT ''"0- VIEW CATALOGUE GO TO 48
1 4
1 39073: READ a: POKE i,a: NEXT i
1 3 PRINT TAB 10; FLASH 1;"TRAC ..."
1 3
1 2 RANDOMIZE USR 15619: REM : 1280 LET LONGP=282.596403
1 2 CLEAR 38999: PLOT 0,16: DRA 28 IF a$<>"3" THEN GO TO 33
1 2
1 120 IF x>30 AND z=7 THEN LET p
1 110 IF x<0 AND z=7 THEN LET z=
1 10.2.3.5
1 1 DATA 33,64,156,17,0,0,6,16, 27 PAUSE 0: GO SUB 36: POKE 39
1 1 CLEAR 55032: RANDOMIZE USR 1250 LET ESUN=0.016718
1 1
1 - 24
1 +5 temp
1 +1 perm
1 'CLOSE'
1 "FLAT 50, MESSIR"
1 Start of object: #9C40 (40000)
1 Start of object: #9858 (39000)
1 Start of object: #7530 (30000)
1 RET ;
1 OR C
1 Length : #0048 (00072)
1 LD A,B
1 LD (IY+4),A ;
1 LD A,H
1 LD (23746),HL
1 L2 LD A,(HL)
1 JR NZ,NEXT ;
1 JR NZ,LOOP
1 JR NZ,L2 JR NZ,L2
1 INK 2;0,-175: DRAW INK 2;-255
1 Executes : #7530 (30000)
1 DJNZ, LOOP
1 DEC C
1 CP #5B CP H
1 CO.,LTD),
1 55 PRINT #VAL "1";" PRESS ANY
1 50 POKE VAL "64017",D1: POKE V
1 4010 LET LATMOON=LATMOON1: LET L
1 40 PRINT "DATA FOR FILE ";B$;"
1 32 POKE 39005,160: POKE 39009,
1 30 PRINT "DATA FOR FILE ";A$;"
1 3. DETECTED A9 LINE, DETECTED
1 27 PAUSE 0: GO SUB 36: POKE 39
1 26 PRINT #1;"INSERT DISK TO RE
1 24 GO SUB 37
1 22 FOR I=VAL "1" TO LEN B$: PO
1 14 IF y$="q" THEN LET n=n+1
1 10.2.3.7.
1 00500 JR Z,ZED1
1 00470 CICL1 DEC A
1 00410 OR #40
1 00400 AND #18
1 00360 ADD A,D
1 00330 DEFB 5, 6, 7, 8
1 00320 TABL DEFB 1, 2, 3, 4
1 00310 TRK DEFB 160
1 00300 EI
1 00290 LD HL,TABL
1 00280 DOS PUSH HL
1 00280 LD I,A
1 00280 CALL KEY
1 00270 ZERO LD DE,0
1 00270 RET
1 00260 CALL 11747
1 00250 LD HL,#2005
1 00240 LD A,2
1 00240 JR NC,L2
1 00230 LD E,A
1 00220 LD A,C
1 00220 JR NC,L1
1 00210 CP 65
1 00200 LD A,H
1 00200 DJNZ L1
1 00190 L1 HALT
1 00170 DI
1 00170 CP 91
1 00160 LD A,H
1 00160 JR NZ,L2
1 00160 CALL #3D13
1 00150 LD BC,#10E0
1 00140 LD (#8183),A
1 00140 INC HL
1 00130 INC HL
1 00120 START PUSH BC
1 00120 FORMAT XOR A
1 00110 LD A,C
1 00110 ENT
1 00100 LD D,A
1 00090 CALL #3D13
1 00080 LD C,5
1 00080 LD A,(HL)
1 00080 LD (HL),A
1 00070 NEXT PUSH DE
1 00070 LD HL,49152
1 00070 LD BC,6144
1 00070 LD B,16
1 00050 READ LD HL,40000
1 00040 LD HL,15615
1 00030 ORG 39000
1 00030 ENT
1 00020 ; present
1 00010 PAUSE EQU 2500
1 00010 ;SeBco prog.
1 00010 ;
1 -1":
1 #A044 C9 RET ;
1 #A043 FB EI ;
1 #A042 71 LD (HL),C ;
1 #A041 2B DEC HL ;
1 #A040 70 LD (HL),B ;
1 #A03E 28 EF JR Z,#A02F ;
1 #A03D BE CP (HL) ;
1 #A03B ED 79 OUT (C),A ;
1 #A03A 77 LD (HL),A ;
1 #A039 3D DEC A ;
1 #A037 ED 79 OUT (C),A ;
1 #A036 77 LD (HL),A ;
1 #A034 3E 11 LD A,#11 ;
1 #A032 28 0C JR Z,#A040 ;
1 #A031 BD CP L ;
1 #A030 78 LD A,B ;
1 #A02F 03 INC BC ;
1 #A02C 21 80 C0 LD HL,#C028 ;
1 #A029 01 FF FF LD BC,#FFFF ;
1 #A028 F3 DI ;
1 #5E3D 3E 13 LD A,#13 ;#13 -
1 e. Erratic - "
1 d. Nice guy - "
1 d. Boxer -
1 c. Buldog - "
1 c. Brusier -
1 b. Lugger -
1 b. Loud Mouth -
1 a. Mixed -
1 a. Hot temper -
1 END
1 BEGIN <NN>
1 9C50: 11 00 18 D5 C1 7E FE 00 :27
1 4 PRINT ''"0- VIEW CATALOGUE
1 2 LET n1=255: LET p=4e4: LET
1 10.2.3.1
1 08.txt 75-89 "altar.pcx"
1 006 -
1 005 -
1 004 -
1 003 -
1 002 -
1 001 -
1 000 -
1 0 REM +---------------------+
1 .... ;<---
1 -5":
1 #5E4E C7 RST 0 ;
1 #5E4D C8 RET Z ;
1 #5E4C BE CP (HL) ;
1 #5E4A D3 FD OUT (#FD),A ;
1 #5E49 3D DEC A ;#13 -
1 #5E48 77 LD (HL),A ;
1 #5E46 D3 FD OUT (#FD),A ;
1 #5E45 3C INC A ;#14 -
1 #5E44 77 LD (HL),A ;
1 #5E42 D3 FD OUT (#FD),A ;
1 #5E3F 21 FF FF LD HL,#FFFF ;
1 #5E3D 3E 13 LD A,#13 ;#13 -
1 Russia, Moskow, 12.10.95.
1 21.
1 20.
1 19. IS DOS.
1 18. IS DOS.
1 17.
1 16
1 15. ZX
1 14.
1 13. TR DOS
1 11,12. ZX FORUM-1, ZX FORUM-2. (
1 10.2.3.4
1 10.
1 0 REM +------ AY-BEEP ------+
1 ||
1 STAMINA -
1 SRL E
1 RET
1 RECOVERY -
1 New turbo algoritms..90%
1 New turbo algoritms..10%
1 LD IY,HL ;
1 LD DE,0008 ;
1 LD BC,NN ;
1 LD A,(IY+7) ;
1 LD A,(IY+6) ;"
1 LD E,%01111111
1 LD C,PAUSE
1 LD B,8 LD DE,SPEED
1 JR NZ,NEXT ;
1 JR NZ,L3
1 INFORMATION FOR BRAKERS
1 IMAGE -
1 EARMINGS -
1 DJNZ L1 SRL E
1 DEC C
1 CP 06 ;6-
1 ATTITUDE -
1 AND 01 ;
1 AGILITY -
1 ADD HL,DE ;
1 A>RUN "MASM128K" <Enter>
1 9.CREDITS & COMING SOON:
1 9. 30
1 8.
1 8.
1 7.
1 7.
1 6.
1 6 - 3 - 0 - 6 ...
1 2,3,4,5.
1 1.
1 /\
1 -----------------------
1 " ,0
1 XOR A
1 SCF
1 RET
1 PUSH AF
1 POP AF
1 OUT (254),A
1 N*k*Len/100
1 LD DE,6912
1 LD C,3
1 LD A,255
1 INC D
1 INC D
1 EI
1 DI
1 DI
1 CALL 1386
1 91
1 75
1 72
1 63
1 4. TURBO-
1 32
1 3.
1 2
1 XOR A LD BC,#0005
1 SRL E DJNZ L1
1 RST #10 F348: 4E 4F 54 20 46 4F 55 4E :84
1 RST #10 LD HL,#8000
1 RET
1 RET
1 RANDOMIZE USR 23600
1 PUSH HL F320: 0A 21 12 FA BE 20 10 21 :59
1 PUSH HL F2B8: 00 CD 3C 20 11 DD 5C 01 :1E
1 PUSH DE F2C8: 01 C8 00 CD 3D 1F CD 6B :E4
1 PUSH DE LD DE,(#FA15)
1 PUSH DE CALL #3D13
1 PUSH BC F2C0: 08 00 CD 3C 20 3E 0D D7 :05
1 PROC PRCM: PROC TIMEM: PROC PRFA
1 POP HL F360: 46 49 4C 45 20 53 45 41 :6C
1 POP DE LD C,#05
1 POP DE LD (#FA15),HL
1 POP BC F358: 48 20 45 4E 44 20 21 00 :CB
1 POP BC F328: 00 5B ED 5A E5 C1 CD 2E :5E
1 ORG 62000 LD HL,(#5CF4)
1 LDIR LD BC,#0010
1 LDIR CALL #0D6B
1 LD HL,#FA12 F2F8: 5B 15 FA 06 37 0E 05 21 :C5
1 LD HL,#FA11 F2D8: 11 43 F3 01 10 00 CD 3C :2B
1 LD HL,#FA08 POP HL
1 LD HL,#FA00 RST #10
1 LD HL,#5B00 F310: 00 B7 0A BE 28 24 E5 C5 :78
1 LD HL,#5800 9C40: 06 7F 2E 04 76 2D 20 FC :52
1 LD E,%01111111
1 LD DE,LF365 RET
1 LD DE,LF353 LF30C LD HL,#8000
1 LD DE,768
1 LD DE,#5CDD RET
1 LD DE,#5CDD LD BC,#00C8
1 LD DE,#0000 LD HL,(#5CF4)
1 LD C,PAUSE LD C,PAUSE
1 LD BC,#000C LD BC,#B700
1 LD BC,#0008 LF2D8 LD DE,LF343
1 LD BC,#0008 CALL #1F3D
1 LD BC,#0007 LF2E3 LD DE,(#FA13)
1 LD B,8
1 LD A,H LD A,H
1 LD A,H
1 LD A,H
1 LD A,(HL) F2D0: 0D 3E 02 CD 01 16 E1 C9 :9D
1 LD A,(BC) F2F0: 3D 2A F4 5C 22 13 FA ED :B5
1 LD A,#0D F340: 20 D0 C9 46 49 4C 45 20 :2C
1 LD A,#0D LD C,#05
1 LD A,#02 LD BC,#0008
1 LD (HL),A L2 SRL (HL)
1 LD (HL),A
1 LD (#FA15),HL POP HL
1 LD (#FA13),HL CALL #1601
1 LD (#5C8C),A LD DE,#5CDD
1 JR Z,LF33A F2B0: F4 5C E5 11 60 F3 01 05 :41
1 JR NZ,LF337 F308: 22 15 FA C9 21 00 80 01 :97
1 JR NZ,LF337 F2E8: 37 0E 05 21 00 80 CD 13 :A5
1 JR NZ,LF312
1 JR NZ,L3 65
1 JR NZ,L3 JR NZ,L3
1 JR NZ,L2 JR NZ,L2
1 INC HL INC HL
1 INC HL
1 INC DE
1 INC BC
1 HALT
1 ENT $ PUSH HL
1 DJNZ L1 RET
1 DI LD A,#0D
1 DEFB 0
1 DEC C DEC C
1 DEC A CALL #203C
1 CP (HL) F300: 00 B7 CD 13 3D 2A F4 5C :41
1 CP (HL) F2E0: 20 E1 C9 ED 5B 13 FA 06 :F7
1 CP (HL) F2A8: 06 1B 0E 05 CD 13 3D 2A :15
1 CP #B7
1 CP #66
1 CP #5B CP #5B
1 CALL LF30C RET
1 CALL LF30C LD HL,#B700
1 CALL LF30C LD (#FA13),HL
1 CALL LF2E3 LD HL,(#5CF4)
1 CALL LF2E3 LD B,#37
1 CALL LF2E3 CALL #3D13
1 CALL LF28C LD A,#02
1 CALL LF28C CALL #203C
1 CALL #2DE3 F338: C1 E1 23 03 13 7C FE B7 :37
1 CALL #2D2E F330: 2D CD E3 2D 3E 0D D7 D1 :20
1 CALL #203C LF312 LD A,(BC)
1 CALL #203C LD B,#37
1 CALL #1601 CALL #203C
1 AND E L1 LD HL,#5800
1 AND E
1 ADC HL,DE F318: D5 7E 21 11 FA BE 20 17 :7F
1 22
1 ... ... Length : #0028 (00040)
1 *AIG* & KSA SOFTWARE
1 * * * 50 IF y$=" " THEN OUT 65533,7
1 * * *
1 * * *
1 (
1 Z
1 XOR A
1 LD TIP_E,A
1 LD QUAL,A
1 LD NUM_P,A
1 LD NUM_E,A Class)
1 LD IY,HL
1 LD FLAG_O,A
1 LD A,(IY+7)
1 LD A,(IY+6)
1 LD A,(IY+5)
1 LD A,(IY+4)
1 LD A,(IY+3)
1 EI
1 CALL 1386
1 3.
1 2
1 1. O
1 *AIG* productions:
1 LD E,%01111111
1 ED 79 OUT (C),A ;
1 AND E
1 29
1 21 FF FF LD HL,#FFFF ;
1 01 FD 7F LD BC,#7FFD ;
1 0,5
1 ... ...
1 ** -
1 XOR A
1 RET
1 OUT (C),A Executes : #9866 (39014)
1 LD B,#BF
1 JR NZ,WARNING
1 IN A,(C)
1 25
1 20
1 15
1 LD BC,#2005
1 LD A,(NUM_P)
1 COPYRIGHT BY
1 CALL NZ,NN
1 6.
1 5.
1 35
1 2
1 XX=01 HP=HP-4
1 POKE
1 CREDITS:
1 4.
1 07.txt 63-74
1 Z: PROC OPTION
1 S (HCM*GR)))))/GR
1 03.txt 29-31
1 EMFAZ: PROC COORDM: PROC MCONV:
1 1180 PROC INSTR
1 25-28
1 3520 END PROC
1 35-37
1 121019,
1 06.txt 57-62
1 01.txt "moonecl.pcx"
1 SPECTRUM
1 1.0
1 4880 LET ECW=ECU-FJ
1 4760 END PROC
1 4
1 91-92
1 05.txt 49-56
1 04.txt 38-48
1 "atm1.pcx"
1 ET ANGLE=CSM: PROC ANGLE: LET CS
1 91
1 - 96 -
1 - 94 -
1 - 93 -
1 - 92 -
1 - 91 -
1 - 90 -
1 - 89 -
1 - 88 -
1 - 87 -
1 - 86 -
1 - 85 -
1 - 84 -
1 - 83 -
1 - 82 -
1 - 81 -
1 - 80 -
1 - 79 -
1 - 78 -
1 - 77 -
1 - 76 -
1 - 75 -
1 - 74 -
1 - 73 -
1 - 72 -
1 - 71 -
1 - 70 -
1 - 69 -
1 - 68 -
1 - 67 -
1 - 66 -
1 - 65 -
1 - 64 -
1 - 63 -
1 - 62 -
1 - 61 -
1 - 60 -
1 - 59 -
1 - 58 -
1 - 57 -
1 - 56 -
1 - 55 -
1 - 54 -
1 - 53 -
1 - 52 -
1 - 51 -
1 - 50 -
1 - 49 -
1 - 48 -
1 - 47 -
1 - 46 -
1 - 45 -
1 - 44 -
1 - 43 -
1 - 42 -
1 - 41 -
1 - 40 -
1 - 39 -
1 - 38 -
1 - 37 -
1 - 36 -
1 - 35 -
1 - 34 -
1 - 33 -
1 - 32 -
1 - 31 -
1 - 30 -
1 - 29 -
1 - 28 -
1 - 27 -
1 - 26 -
1 - 25 -
1 - 24 -
1 - 23 -
1 - 22 -
1 - 21 -
1 - 20 -
1 - 19 -
1 - 18 -
1 - 17 -
1 - 16 -
1 - 15 -
1 - 14 -
1 - 13 -
1 - 12 -
1 - 11 -
1 - 10 -
1 2-10
1 - 9 -
1 - 8 -
1 - 7 -
1 - 6 -
1 - 5 -
1 - 4 -
1 - 3 -
1 - 2 -
1 4250 PROC STMOON
1 31. Wind Walk (7)
1 29. Fire Storm (7)
1 21. Fire Seeds (6)
1 19. Wall of Fire(5)
1 10. Pyrotechnics (3)
1 10-15
1 ring Mode.
1 doomguard).
1 dom).
1 9C58: 76 76 F1 3D 20 E7 C9 00 :DE
1 9C58: 28 06 CD 6C 9C 77 18 01 :87
1 9C50: 76 ED 5F 6F 47 26 23 11 :BE
1 9C48: 28 60 19 78 CD 69 9C C5 :94
1 9C48: 26 58 7E A0 77 23 7C FE :94
1 4. Cure Blindness or Deafness (3)
1 4
1 255.
1 2. Aid (2)
1 1993
1 1),
1 -
1 *********************************
1 NY KEY..."
1 K TO READ"'"SYSTEM TRACK FROM FI
1 =7: LET x=0
1 : OUT 49149,255
1 8. Hold Animal (3)
1 7. Animate Object (6)
1 6. Snake Charm (2)
1 4. Control Temperature (4)
1 2. Obscurrement (2)
1 2. Astral Spell
1 1240 LET YEAR=365.2422
1 1190 END PROC
1 1170 PROC DATA: PROC FAZ: PROC M
1 q=0
1 120 DATA
1 10.2.2.1
1 """; INVERSE 1;n$; INVERSE 0;""
1 Length : #001F (00031)
1 L3 DEC DE
1 Executes : #9C40 (40000)
1 Doomdark
1 2.
1 15 PRINT #1;"INSERT RESCUE DIS
1 10 PRINT IN 255: GO TO 10
1 10 PRINT IN 1: GO TO 10
1 1)
1 00540 ZED1 LD A,0
1 00490 PUSH DE
1 00390 LD A,D
1 00350 RRCA
1 00280 RRCA
1 00260 ADR LD D,0
1 00260 JR OPROS
1 00260 JR LOOP
1 00230 LD A,D
1 00220 LD DE,22528
1 00220 HALT
1 00210 POP AF
1 00190 BIT 4,A
1 00170 OR C
1 00170 HALT
1 00140 PUSH DE
1 00140 LD A,B
1 00130 LD (HL),A
1 00130 AND A
1 00100 LDIR
1 00100 DI
1 00090 L2 LD HL,22528
1 00090 JR Z,L2
1 00080 ORG 40000
1 00070 L1 LD A,(HL)
1 00060 LD (HL),7
1 00040 LD DE,7
1 00030 START LD HL,16384
1 00030 ENT
1 00020 ORG 40000
1 62
1 0 REM | Written by |
1 LD HL,ADRR_E ;
1 XX=11 HP=HP-16
1 XX=00 HP=HP-2
1 BEST PUNSH -
1 32-34
1 "hardwar0.pcx"
1 JP NZ,LF2D8
1 CALL #3D13
1 ... ...
1 (
1 "well.pcx"
1 "training.pcx"
1 "tavern.pcx"
1 "statuja.pcx"
1 "guard.pcx"
1 "fountain.pcx"
1 "hardwar8.pcx"
1 "atm2.pcx"
1 . . .
1
1
1
1
1
1
1
1
1
1